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Chapter 1 : Introduction 


The Commodore 64 wins thousands of new friends every 
day all over the world. That is hardly surprising since the 
64 offers not only excellent performance, but also an 
excellent price to performance ratio. One can now purchase a 
Commodore 64 complete with disk drive for under 500 dollars. 
The 64 carries the price of an introductory computer, but it 
offers far more than just game playing or an introduction to 
computing. It offers the hobbyist an almost boundless tool 
with which to work and can also be used for small business 
and scientific applications. 

Here then is Tricks & Tips, our fourth book for the 
Commodore 64. Our experienced team of authors consisting of 
Klaus Gerits, Lothar Englisch, and Michael Angerhausen has 
again filled this book with programming tricks. The authors 
hope to provide ideas for your own programs through the use 
of countless examples and model programs. This book is 
intended to help you, the programmer, get more out of your 
Commodore 64. 
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Chapter 2 : Advanced Graphics 


2.1 Graphics on the Couodore 64 


Sooner or later every Commodore 64 user has the desire 
to work with the built-in graphics capabilities of this 
computer. Unfortunately, the instruction manual says little 
about the capabilities and possibilities that the Commodore 
64 offers. 

At this point, we want to take a more detailed look at 
the graphics possibilities and features. 

First one must distinguish between the normal graphics, 
i.e. the symbols of which are shown on the keys (the block 
or line graphics), the high-resolution graphics, and the 
sprites. Some computers offer block graphics and high- 
resolution graphics, but the sprites are something truly new 
on the Commodore 64. These sprites were previously found 
only on video arcade games. And now these same capabilities 
are offered to us by the Commodore 64. 

On the next pages we want to go over the three graphics 
modes. We will of course help you by illustrating the theory 
with many examples. 


2 



Tricks & Tips 


2.1.1 The block or line graphics on the keyboard 

This method of creating graphics on the Commodore 64 is 
the simplest and easiest. No addresses have to be calculated 
nor attention paid to any registers. One can create graphics 
directly from the keyboard and place them in the program 
while both are being developed. It is usually necessary to 
press two keys to obtain these symbols. If you look at the 
keyboard closely, you will see that almost every key has two 
graphics symbols on it in addition to the normal letter. The 
symbol or graphics character on the left side of the key is 
obtained by first pressing the Commodore (C=) key, holding 
this down, and then pressing the corresponding key with the 
desired graphics character. 

These characters can always be entered within a PRINT 
or INPUT statement. One might write 

100 PRINT " 

for example, and then press the keys C= and A. You now see 
the upper right-hand corner of a frame on the screen. To 
create an entire frame, the following input is necessary 
(still in line 100): 
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Press the shift and * keys 38 times. You see a straight 
line extending from the corner of the frame on the same 
horizontal line. In addition, you have also learned that you 
can enter the graphics character shown on the right side of 
a key by pressing SHIFT along with that key. Now press the 
keys C= and S to complete the top part of the frame. At the 
end of line 100, enter the following: 

H , 

I 

and press the RETURN key 
The next line can be entered as follows: 

110 PRINT " 

After this, press SHIFT and - one time, the space bar 38 
times, and SHIFT and - once again. At the end, enter 


ft » 

» 

and press the RETURN key again. 

The second line of the frame is already done. The third and 
last line is written as follows: 

120 PRINT " 

and then C= and Z, SHIFT and * 38 times, then C= and X. Now 
we have the complete frame consisting of three lines. Enter 
these lines: 
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99 PRINT CHR$(147)j: REM ERASE THE SCREEN 
132 A$ = " 

135 REM A$ = 38 SPACES 

140 B$="-THIS LINE FILLS OBR FRAME COMPLETELY-" 
150 PRINT CHR$(X9); 

160 PRINT CHR$(17);CHR$(29);A$; 

170 PRINT CHR$(19); 

180 PRINT CHR$(17);CHR$(29);B$; 

190 FOR 1=1 TO 1000: NEXT 
200 GOTO 150 


Today, many commercial programs use such frames to make 
the screen appear more professional and less cluttered. 


Naturally, there is another way of entering such 
graphics symbols. These symbols can all be obtained via the 
CHR$ function. Here is an example using our last program: 

100 A1$=CHR$(176): A2$=CHR$(174) 

101 HEM THE LEFT AND RIGHT-HAND UPPER CORNERS 

102 A3$=CHR$(173): A4$=CHR$(189) 

103 REM THE LEFT AND RIGHT-HAND LOWER CORNERS 

104 H1$=CHR$(96) 

105 REM HORIZONTAL LINE 

106 H2$=CHR$(125) 

107 REM PERPENDICULAR LINE 

108 H3$=CHR$(32) 

109 REM SPACE 

110 Zl$=Al$ 

111 FOR 1=1 TO 38 

112 Z1$=Z1$+H1$ 

113 NEXT I 

114 Z1$=Z1$+A2$ 
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115 

REM FIRST LINE 

OF 

THE 

FRAME 

116 

Z2$=H2$ 




117 

FOR 1=1 TO 38 




118 

Z2$=Z2$+H3$ 




119 

NEXT I 




120 

Z2$=Z2$+H2$ 




121 

REM SECOND LINE 

OF 

THE 

FRAME 

122 

Z3$=A3$ 




123 

FOR 1=1 TO 38 




124 

Z3$=Z3$+H1$ 




125 

NEXT I 




126 

Z3$=Z3$+A4$ 




127 

REM THIRD LINE 

OF 

THE 

FRAME 

128 

PRINT Zl$; 




129 

PRINT Z2$; 




130 

PRINT Z3$; 





When you enter these new lines and run the program, you 
will get the same result as before. The advantage lies in 
the fact that programs written with such CHR$ functions are 
easier to read and change. 

2.1.2 The use of sprites 

Your Commodore 64 can do more that Just draw simple 
lines or frames. It offers you graphics capabilities that we 
have only begun to describe, capabilities previously found 
only on coin-operated video games. 

The Commodore 64 has eight movable graphics objects 
called "sprites." Each of these eight sprites can be moved, 
erased, or redefined via POKB commands, independent of the 
other sprites. In order to get the most out of sprite 
graphics, one must be acquainted with the corresponding 
registers in the Commodore 64. The complete register layout 
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can be found in the book The Anatomy of the Commodore 64. 

There are a variety of registers at our disposal for 
each sprite. It would be advantageous if you first 
experiaent with the sprites which you find in the Coaaodore 
User’s Guide. 

The aost iaportant address to keep in aind when working 
with sprites is located at 53248. The built-in VIC (Video 
Controller) 6569 has a set of registers which are mapped to 
addresses starting here. In order to position a sprite, for 
instance, we must tell the VIC chip where we want it to draw 
the sprite. The register we use is register 0 (having an 
address exactly equal to 53248). In this address we find the 
horizontal position and in register 1 (53249) the vertical 
position of the sprite. 

POKB 53248,160: POKE 53249,120 

Two POKBs suffice to set an entire sprite at a certain 
location on the screen. These two POKEs place the sprite in 
the middle of the screen. Registers 0 and 1 serve for sprite 
1, registers 2 and 3 for sprite 2, and so on. Almost all of 
the registers work on this principle. Exact information 
about the manipulation of sprites can be found in The 
Anatomy of the Commodore 64. In the next pages you will 
learn how to create complex graphic images with minimum 
effort. 
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2.2 3D Graphics - BASIC Program 


At the beginning of this book we want to present you 
with a BASIC program that displays three-dimensional 
representations of functions on the screen with the help of 
the Commodore 64’s high-resolution graphics. The program 
uses the commands of a BASIC extension called ULTRABASIC-64; 
at the end you will find the necessary changes if you do not 
have ULTRABASIC-64 at your disposal. 

This program draws the function defined in line 100. The 
function can be drawn in one of three different ways: 

First, the function can be shown in a normal Cartesian 
(rectangular) coordinate system, in the same way you would 
draw the function on graph paper. Second, it is possible to 
represent the function in the polar coordinate (radius and 
length) system. Third and most interesting is three- 
dimensional representation. The function is rotated about 
the (vertical) Y-axis. Because of the large number of points 
that must be calculated, this method requires the greatest 
amount of time. 

Now a description of the program itself. First, you can 
select the means of representation (lines 40-70). For the 
Cartesian and polar plots you are asked for the function 
increment (line 260). This is the value by which the 
parameter of the horizontal axis is incremented after each 
calculation. Lines 270 and 280 ask for the scaling factors 
for the X and Y axes. This allows you to control the aspect 
ratio of the axes as well as the "magnification" factor. For 
the time being, enter 1 for both. Use zero for the 
horizontal and vertical displacements (lines 370-410). The 
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graphics node is selected in line 430. The lines 450 to 560 
draw the axes and scales. The lines 680 to 790 draw the 
polar representation and lines 820 to 970 draw the 
rectangular graph. 

The three-dinensional plotting routine starts at line 
1010. You can again select the values for scale and 
position. For now, enter the suggested values of 20 and 90. 
The three-dinensional representation requires that the 
function in line 100 be calculated nore than ten thousand 
times; the progran takes between one half of an hour to 
several hours to do this. 

Run the progran with various functions. Here are some 
functions which will yield interesting graphs. 

100 DBF FN R(Q) = COS (2*Q) + COS ((Q + BB)/16) 

100 DBF FN R(Q) = SQR (ABS(.5*(16-Q*Q)) + l/(Q+4) 

100 DBF FN R(Q) = COS (4*Q) + 20/(Q*Q + 3) 

If you do not have ULTRABASIC-64, you nust nake the 

following changes and additions to the progran: 


Line 

5 POKE 56,32 : CLR 





Line 

430 

and 1400 GOSUB 2000 





Line 

470 

FOR A1 = 0 TO 199 : AX = F: AY=A1: GOSUB 3000 : 

NEXT 

Line 

480 

FOR A1=0 TO 319 : AX=A1: 

AY=E: GOSUB 3000 : 

NEXT 

Line 

500 

FOR A1=B-1 TO E+l: AX=YR: 

AY=A1: 

GOSUB 

3000 

: NEXT 

Line 

520 

FOR A1=E-1 TO E+l: AX=XL: 

AY=A1: 

GOSUB 

3000 

: NEXT 

Line 

540 

FOR A1=F-1 TO F+l: AX=A1: 

AY=YD: 

GOSUB 

3000 

: NEXT 

Line 

560 

FOR A1=F-1 TO F+l: AX=A1: 

AY=YU: 

GOSUB 

3000 

: NEXT 

Line 

770 

AX = XX: AY = YY: GOSUB 3000 





Line 

900 

AX=G: AY=YY: GOSUB 3000 





Line 

1600 

AX = X1: AY = Y1: GOSUB 3000 
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Line 1620 
Line 2000 
Line 2010 
Line 2020 
Line 2030 
Line 3000 
Line 3010 
Line 3020 
Line 3030 
Line 3040 
Line 4000 
Line 5000 
Line 5010 
Line 5020 
Line 5030 
Line 5040 


GOSUB 4000 : RETURN 

FOR Al=8192 TO 16191 : POKE A1,0 : NEXT 
FOR Al=1024 TO 2023 : POKE Al,16: NEXT 
POKE 53248+17, 27+32 : POKE 53248+24, 16+8 
RETURN 

OY=320*INT(AY/8)+(AYAND7) 

OX=8*INT(AX/8) 

MA=2"'( (7-AX)AND7) 

AV=8192+OY+OX 

POKE AV.PEEK(AV) OR MA : RETURN 

FOR A1=Y1+1 TO 199:AX=X1:AY=A1:GOSUB 5000:RETURN 
OY=320*INT(AY/8)+(AYAND7) 

OX=8*INT(AX/8) 

MA=2 / ' ( ( 7-AX) AND7) 

AV=8192+OY+OX 

POKE AV.PEEK(AV) AND (255-MA): RETURN 


Programming the graphics functions in BASIC Bakes the 
program considerably slower as compared to programming using 
ULTRABASIC-64 for example. 
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10 PRINT" £CLR} CC/DN3- GRAPHIC REPRESENTATION OF FUNCTIONSCC/ 
DN> " 

20 PRINT " DEFINED IN LINE 100CC/DN>" 

40 PRINT"IC/DNJ 1 - CARTESIAN PLOT" 

50 PRINT"CC/DNJ 2 - POLAR COORDINATES" 

60 PRINT"TC/DNJ 3 - 3D PLOT" 

70 INPUT" CC/DN} CHOICE: 1 1 C/LF3- -CC/LFJ CC/LFJ " 5 PL 
100 DEF FNR(Q)=COS(Q)+COS(2*Q)+COS <5*Q) 

210 IF PL=3 THEN 1010 
250 PRINT:PRINT 

260 INPUT"FUNCTION INCREMENT =";IK 
270 INPUT"{C/DN 3-FACTOR FOR X-AXIS = ";S1 
280 INPUT"-CC/DN3FACT0R FOR Y-AXIS = ";S2 
370 PRINT"LEFT OR RIGHT SHIFT" 

380 INPUT"NUMBER FROM -130 TO 130 ";C 
400 PRINT"UP OR DOWN SHIFT" 

410 INPUT"NUMBER FROM -90 TO 90 ";D 

430 HIRES 2,2 

450 E=100+D:F=160+C 

470 DRAW F,0,F,199,1 

480 DRAW 0,E,319,E,1 

490 FOR XR=F TO 319 STEP 19*S1 

500 DRAW XR,E-l,XR,E+l,1 : NEXT 

510 FOR XL=F TO 0 STEP -19*S1 

520 DRAW XL,E-l,XL,E+l,1 : NEXT 

530 FOR YD=E TO 199 STEP 15*S2 

540 DRAW F-l,YD,F+l,YD,1 : NEXT 

550 FOR YU=E TO 0 STEP -15*S2 

560 DRAW F-l,YU,F+l,YU,1 : NEXT 

580 IF F'L=1 THEN 820 

610 REM POLAR PLOT 

620 RD=n'/180 : FOR 8=0 TO 360 STEP 1K : T=G*RD 
710 X=FNR <T)*CQS(T):Y=FNR(T)*SIN<T> 

730 XX=X*(19*S1)+F : YY=-Y*<15*S2)+E 

740 IF XX<0 OR XX>319 THEN 780 

750 IF YY<0 OR YY>199 THEN 780 

770 DOT XX,199—YY,1 

780 NEXT 

790 END 

820 REM CARTESIAN PLOT 
830 FOR G=0 TO 319 STEP IK 
840 X=(8-F)/(19*S1) : Y=FNR(X) 

850 YY=E-<Y*15*52) 

860 IF YY<0 OR YY>199 THEN 960 
900 DOT G,199—YY,1 
960 NEXT 
970 END 

1010 REM 3D PLOT 

1020 PRINT" -CCLRJ CC/DNJ £C/DN> CC/DN3- CC/RTJ TC/RTJ TC/RT} VERTICAL 
ASPECT" 

1030 INPUT" CC/DNJ CC/DN3- CC/RT3- {C/RTJ £C/RT>-40 TO 40, TYF'ICALL 
Y 20 ";N1 


11 



Tricks & Tips 


1040 PRINT" -CC/DNJ CC/DNJCC/DNJ CC/RTJ CC/RTJ CC/RTJVERTICAL OFFS 
ET" 

1050 INPUT"CC/DNJ CC/DNJCC/RTJ -CC/RTJ CC/RTJ—50 TO 150, TYPICAL 
LY 90 "5N2 

1260 REM CONSTANTS A,B,C,D,E,F,S 

1280 A=144:B=2.25:C=N1:D=.0327:E=160:F=N2:6=199 

1400 HIRES 2,2 

1410 FOR H=—A TO A STEB B 

1420 AA=INT <«5+SQR(A*A-H*H)) 

1430 FDR BB=-AA TO AA S CC=SQR(BB*BB+H*H)*D 
1440 D1=FNR <CC)1DD=D1*C:60SUB1520:NEXT:NEXT;END 
1450 BOTO 1450 
1520 X=BB+H/B+E:Y=DD-H/B+F 

1530 X1 = INT <.85*X):Y1 = INT(.9*(G-Y)):IFY<OORY>199THENRETURN 
1600 DOT X1,199-Y1,1 

1620 RETURN: MODE 2 : DRAW XI,199-Y1-1,X1,0,1 : MODE 0 : RE 
TURN 

READY. 
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2.3 Color line graphics 


The following machine language program draws vertical 
or horizontal lines in color. This allows data to be 
represented on the screen with easily understandable 
graphics. Because the graphics are created with the normal 
screen characters, text and graphics may be mixed on the 
screen, allowing you to label graphs, for instance. The 
lines are eight points wide, just like a character. 

The machine language program is designed such that the 
length or height and color of the line can be easily 

controlled. The line is drawn at the current cursor 

position. In order to simplify the representation of a 

complete graphics image, the cursor is moved one position to 

the right after the output of a vertical line so that the 
next line can be drawn immediately (in a different color if 
necessary). After drawing a horizontal line, the cursor 
automatically moves one line down. 

The routine is called through an expanded SYS command: 

SYS H, t, C or 

SYS V, L, C 

where H and V are the starting addresses for the routines to 
draw horizontal and vertical lines, respectively. L is the 
length of the line in pixels (up to 320 for a horizontal 
line and 200 for a vertical line), and C is the color code 
(0 to 15). 

The machine language program begins on the following page. 
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LINE 

ADDR 

CODE 

LABEL 

OPC 

OPERAND 

COMMENTS 

0001 

COOO 



5 COLOR LINE 8RAPHICB 


0002 

COOO 



; HPLOT AND VPLOT 


0003 

COOO 



; 




0004 

COOO 



; 




0005 

COOO 



6ETC0R 

EQU 

*B7EB 


0006 

COOO 



8CR0UT 

EQU 

*E716 


0007 

COOO 



LBYT 

EQU 

*14 


0008 

COOO 



HBYT 

EQU 

LBYT+1 


0009 

COOO 



CURCOL 

EQU 

*D3 


0010 

COOO 



SETCOL 

EQU 

*EA24 


0011 

COOO 



SETCHR 

EQU 

*EA1E 


0012 

COOO 



ILLQUA 

EQU 

*B248 


0013 

COOO 



CHKCOM 

EQU 

*AEFD 


0014 

COOO 



CODE 

EQU 

*22 


0015 

COOO 



TMP 

EQU 

CODE+1 


0016 

COOO 



XREG 

EQU 

TMP+1 


0017 

COOO 



TMP1 

EQU 

XREG+1 


0018 

COOO 



COLOR 

EQU 

*F3 

}POINTER TO C 

□LOR 

RAM 







0019 

COOO 



CURRIB 

EQU 

*AB3B 


0020 

COOO 



ADR 

EQU 

*FD 


0021 

COOO 



LINELN 

EQU 

*D5 


0022 

COOO 



CHRADR 

EQU 

*D1 


0023 

COOO 




□RB 

♦COOO 


0024 

COOO 

20 

FD AE 

HPLOT 

JSR 

CHKCOM 

;COMMA 

0025 

C003 

20 

EB B7 


JSR 

BETCOR 


0026 

C006 

86 

24 


STX 

XREB 


0027 

COOB 

A5 

15 


LDA 

HBYT 


0028 

COOA 

C9 

02 


CMP 

#2 


0029 

cooc 

BO 

42 


BCS 

ILL 


0030 

COOE 

OA 



ASL 



0031 

COOF 

OA 



ASL 



0032 

C010 

OA 



ASL 



0033 

con 

OA 



ASL 



0034 

C012 

OA 



ASL 



0035 

C013 

85 

23 


STA 

TMP 


0036 

C015 

AS 

14 


LDA 

LBYT 


0037 

C017 

48 



PHA 



0038 

C018 

4A 



LSR 



0039 

C019 

4A 



LSR 



0040 

C01A 

4A 



LSR 



0041 

C01B 

18 



CLC 



0042 

C01C 

65 

23 


ADC 

TMP 


0043 

C01E 

65 

D3 


ADC 

CURCOL 

;CURSOR COLUM 

0044 

C020 

48 



PHA 



0045 

C021 

A8 



TAY 



0046 

C022 

C5 

03 


CMP 

CURCOL 


0047 

C024 

FO 

13 


BEQ 

T1 


0048 

C026 

C9 

27 


CMP 

#39 

;<40 

0049 

C028 

90 

02 


BCC 

T2 


0050 

C02A 

AO 

27 


LDY 

#39 
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0031 

C02C 

20 

24 

EA 

T2 

JSR SETCOL 

5 POINTER TO C 

OLOR 

RAM 






0052 

K 

C02F 

A9 

AO 



LDA #*20+*B0 

5 REVERSE BLAN 

0053 

C031 

20 

IE 

EA 


JSR SETCHR 

;SET CHAR AND 

COLOR 






0054 

C034 

88 




DEY 


0055 

C035 

C4 

D3 



CPY CURCOL 


0056 

C037 

10 

F3 



BPL T2 


0057 

C039 

6B 



T1 

PLA 


0058 

C03A 

A8 




TAY 


0059 

C03B 

68 




PLA 


0060 

C03C 

CO 

28 



CPY #40 


0061 

C03E 

BO 

OB 



BCS DONE 


0062 

C040 

29 

07 



AND #7 


0063 

C042 

AA 




TAX 


0064 

C043 

BD 

53 

n 

o 


LDA TABLE,X 


0065 

C046 

A6 

24 



LDX XREG 


0066 

C048 

20 

IE 

EA 


JSR SETCHR 


0067 

C04B 

A9 

11 


DONE 

LDA #17 

jCURSOR DOWN 

0068 

C04D 

4C 

16 

E7 


JMP SCROUT 

0069 

C050 

4C 

48 

B2 

ILL 

JMP ILLQUA 


0070 

C053 

20 

65 

74 

75 TABLE BYT *20,*65,*74, 

*75 

0071 

C057 

61 

F6 

EA 

E7 

BYT *61,*F6,*EA, 

*E7 

0072 

C05B 

20 

FD 

AE 

VPLOT 

JSR CHKCOM 


0073 

C05E 

20 

EB 

B7 


JSR SETCOR 


0074 

C061 

A5 

15 



LDA HBYT 


0075 

C063 

DO 

EB 



BNE ILL 


0076 

C065 

86 

24 



STX XREG 

;COLOR 

0077 

C067 

A5 

14 



LDA LBYT 


0078 

C069 

4A 




LSR 


0079 

C06A 

4A 




LSR 


0080 

C06B 

4A 




LSR 


0081 

C06C 

85 

23 



STA TMP 


0082 

C06E 

A5 

14 



LDA LBYT 


0083 

C070 

29 

07 



AND #7 


0084 

C072 

85 

25 



STA TMP1 


0085 

C074 

A5 

D1 



LDA CHRADR 

;LINE ADDRESS 

00B6 

C076 

18 




CLC 


0087 

C077 

65 

D3 



ADC CURCOL 

;PLUS CURSOR 

COLUMN 







0088 

C079 

85 

FD 



STA ADR 


0089 

C07B 

A5 

D2 



LDA CHRADR+1 


0090 

C07D 

69 

00 



ADC #0 


0091 

C07F 

85 

FE 



STA ADR+1 


0092 

C081 

AO 

00 



LDY #0 


0093 

C083 

A6 

23 



LDX TMP 


0094 

C085 

FO 

20 



BEQ T3 


0095 

C087 

20 

C7 

CO 

T4 

JSR CLR 

5 CALCULATE CO 

LOR AODR 







0096 

C08A 

A9 

AO 



LDA #*20+*80 


0097 

C08C 

91 

FD 



STA <ADR>,Y 


0098 

C08E 

A5 

24 



LDA XREG 

;COLOR 

0099 

C090 

91 

F3 



STA (COLOR),Y 

;SET CHAR AND 

COLOR 
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0100 

C092 

A5 

FD 



LDA ADR 


0101 

C094 

38 




SEC 


0102 

C095 

E9 

2B 



SBC *40 

5 NEXT LINE 

0103 

C097 

85 

FD 



STA ADR 


0104 

C099 

BO 

08 



BCS T5 


OIOS 

C09B 

C6 

FE 



DEC ADR+1 


0106 

C09D 

AS 

FE 



LDA ADR+1 


0107 

C09F 

C9 

04 



CMP #4 

5TOP LINE REA 

CHED 








0108 

C0A1 

90 

12 



BCC T6 


0109 

C0A3 

C6 

23 


TS 

DEC TMP 


0110 

C0A5 

DO 

EO 



BNE T4 


0111 

C0A7 

20 

C7 

CO 

T3 

JSR CLR 


0112 

COAA 

A6 

25 



LDX TMP1 


0113 

COAC 

BD 

BF 

CO 


LDA TAB2.X 


0114 

COAF 

91 

FD 



STA (ADR),Y 


0115 

C0B1 

AS 

24 



LDA XRE6 

;COLOR 

0116 

C0B3 

91 

F3 



STA (COLOR),Y 


0117 

C0B5 

A5 

D3 


T6 

LDA CURCOL 


0118 

C0B7 

C5 

D5 



CMP LINELN 

;CURSOR IN LA 

ST COL? 







0119 

C0B9 

FO 

03 



BEQ T7 


0120 

COBB 

4C 

3B 

AB 


JMP CURRIG 

;CURSOR RIGHT 

0121 

COBE 

60 



T7 

RTS 


0122 

COBF 

20 

64 

6F 

79 TAB2 

BYT *20,*64, 

*6F,*79 

0123 

C0C3 

62 

F8 

F7 

E3 

BYT *62,*FB, 

*F7,*E3 

0124 

C0C7 

AS 

FD 


CLR 

LDA ADR 


0125 

C0C9 

BS 

F3 



STA COLOR 


0126 

COCB 

AS 

FE 



LDA ADR+1 


0127 

COCO 

4C 

2A 

EA 


JMP SETCOL+6 



ASSEMBLY COMPLETE. 
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Here is a loader program in BASIC for those who do not have 
an assembler or monitor at their disposal. 


100 FOR 1—49152 TO 49359 
110 READ X: 

POKE I,X: 

s=s+x: 

NEXT 

120 DATA 32,233,174,32,235,183,134,36,163,21,201,2 

130 DATA 176,66,10,10,10,10,10,133,35,165,20,72 

140 DATA 74,74,74,24,101,35,101,211,72,168,197,211 

150 DATA 240,19,201,39,144,2,160,39,32,36,234,169 

160 DATA 160,32,30,234,136,196,211,16,243,104,168,104 
170 DATA 192,40,176,11,41,7,170,189,83,192,166,36 
180 DATA 32,30,234,169,17,76,22,231,76,72,178,32 
190 DATA 101,116,117,97.246,234,231,32,253,174,32,235 
200 DATA 183,165,21,208,235,134,36,165,20,74,74,74 

210 DATA 133,35,165,20,41,7,133,37,165,209,24,101 

220 DATA 211,133,253,165,210,105,0,133,254,160,0,166 

230 DATA 35,240,32,32,199,192,169,160,145,253,165,36 

240 DATA 145,243,165,253,56,233,40,133,253,176,8,198 

250 DATA 254, 165, 254201,4, 144, 18, 198, 35, 208,224, 32 

260 DATA 199,192,166,37,189,191,192,145,253,165,36,145 
270 DATA 243.165,211,197,213,240,3,76,59,171,96,32 
280 DATA 100,111,121,98,248,247,227,165,253,133,243,16 

s 

290 DATA 254,76,42,234 
300 IF S<>26696 

THEN PRINT "ERROR IN DATA !!": 

END 

310 PRINT "OK" 
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Let us take a look at a possible use for these graphics 
routines. This example represents sales statistics 
graphically. 


100 REM THE MONTH-END TOTALS FOR THE YEAR 
110 REM ARE IN THE DATA STATEMENTS 
120 DIM U(12) 

130 REM READ THE DATA 

140 FOR 1= 1 TO 12 : READ U(I) : NEXT 

150 REM DETERMINE MAXIMUM VALUE 

160 MAX = 0 

170 FOR 1= 1 TO 12 

180 IF U(I) > MAX THEN MAX = U(I) 

190 NEXT 

200 V = 12*4096+5*16+11 : REM ADDRESS OF THE ML ROUTINE 
220 PRINT CHR$(147) : REM ERASE SCREEN 

230 FOR 1= 1 TO 21 : PRINT CHR$(17); : NEXT : REM CURSOR 
240 REM DRAW GRAPHICS 
250 FOR 1= 1 TO 12 

260 PRINT SPC(2); : SYS V, U(I)/MAX * 180 , I 
270 NEXT 

280 PRINT : PRINT 

290 REM WRITE MONTH NUMBER 

300 FOR 1=1 TO 12 

310 PRINT RIGHT$(" "+STR$(I),3); 

320 NEXT 

330 GET A$ : IF A$="" THEN 330 
400 REM SALES DATA 

410 DATA 12000, 13500, 11000, 8000, 14000, 9000 
420 DATA 13800, 14000, 12750, 14000, 13800, 17200 
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Now let’s examine a function with horizontal line 
graphics. 

The color code can be entered in line 100. The screen 
is then erased, the background color set to black, and the 
cursor placed in the second column. The function is 
calculated from -2.2 to 2.2 in lines 120 and 130, expanded 
to an easily representable size, and finally plotted with 
the SYS command. 

100 INPUT "COLOR";C:IF C<1 OR 015 THEN 100 
110 H=12*4096 : PRINT CHR$(147)TAB(2); : POKE 53281,0 
120 FOR I=-2.2 TO 2.2 STEP .2 
130 SYS H,EXP(-I*I)*300,C : NEXT 


19 - 



Tricks & Tips 


2.4 Defining a character set 


A special feature of the Commodore 64 is the ability to 
place the character generator in RAM. This gives you the 
opportunity to define your own characters. 

How is a character defined? 

The shape of each character is determined by something 
called the character matrix, an array of eight by eight 
pixels. Each matrix point is determined by a bit in the 

character generator. Each character requires 64 bits or 

eight bytes for a complete definition. If a bit is zero, 
then the corresponding point in the matrix is not set, while 
a set bit indicates a set point in the matrix. If a bit in 

the matrix is set, then it appears on the screen. The 

following program displays the matrix of a character on the 
screen. The program uses the modified PEEK function from 
Section 9.5—load or enter the program found there before 
you enter this one. 

100 PRINT CHR$(147):PRINT:PRINT:PRINT 
110 INPUT "PLEASE ENTER A CHARACTER ";A$ 

120 PRINT CHR$(19)A$ :B=PEEK(1024) 

130 PRINT:PRINT:PRINT:PRINT 

140 CG = 13*4096 : REM START OF THE CHARACTER GENERATOR 
150 REM DETERMINE IF UPPER/GRAPHICS OR UPPBR/LOWER MODE 
160 B = (PEEK(53248+24) AND 2) * 1024 
170 FOR 1=0 TO 7 

180 Z = USR (CG+B+8*C+I) : REM GET MATRIX A LINE AT A TIME 
190 FOR J=7 TO 0 STEP -1 
200 A = Z AND 2~J 
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210 IF A THEN PRINT ; : GOTO 230 

220 PRINT 

230 NEXT 

240 PRINT 

250 NEXT 

260 RUN 


The program asks for the character whose matrix it 
should display. The ASCII code of the character is put into 
the variable B in line 120. Line 140 checks for upper/lower 
case or upper/graphics mode. In line 160 the starting 
position of the character definition matrix within the 
character generator is determined. Line 180 determines if 
the matrix point is set or not. An asterisk is printed if 
the point (bit) is set, while a period is printed if it is 
not. Enter a "T", for example, and you will receive this 
output: 

*******. 

... **. .. 


After you have seen what the matrix of an individual 
character looks like, we can proceed to define or redefine 
our own characters. To do this, we must copy the character 
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generator fro* ROM to RAM and then inform the operating 
system where the new character generator is. The screen 
memory at address $C400 (decimal 50176 to 51175) is shifted 
at the same time. This can be accomplished in BASIC with a 
POKE loop. We will again use the USR function from Section 
9.5. 


100 FOR 1=13*4096 TO 14*4096-1 
110 POKE 1+4096,USR(I) : NEXT 

120 POKE 53272,24 : POKE 56576,148 : POKE 648,196 

After RUNning this program you can define your own 
characters with the following program. The program prompts 
you for the character to be modified. You can then enter the 
character matrix, thereby redefining the character that is 
to be displayed. An asterisk indicates a set point and a 
period means the point is not set. When you are finished 
defining characters, enter the word "END" as the character. 


100 REM CHARACTER DEFINITION 
110 CG=14*4096: 

REM BASE OF THE CHARACTER GENERATOR 
200 INPUT "C CS3t CD 3 C CD1C CD 3 C CR 3 C CR 3 C CR1CHARACTER ”;AS: 

IF A*="END" 

THEN END 

210 PRINT "CCHl";A* 

220 C=PEEK(12*4096+1024 > 

230 PRINT "[CDKCD3CCD3CCD3CCDDCCD3CCD3ECR3CCRKCR3 CCRKCR] 
01234567" 

300 FOR 1=0 TO 7 
310 PRINT Ij: 

INPUT A*(I): 

IF LEN(A$(I))< >8 
THEN PRINT "CCU3CCU3": 

GOTO 310 

320 NEXT 

400 B=(PEEK(53248+24) AND 2 )*1024: 

REM UPPER CASE/GRAPHICS MODE 
405 AD=CG+B+C*8 
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4-10 FOR 1=0 TO 7: 

7=0 

420 FOR J=0 TO 7 

430 Z=Z-tMIDsMA#<I> ,8-J, 1 )="*") 

440 NEXT 

450 POKE AD+I,Z: 

REM CHARACTER 
460 POKE AD+1024+I,255—Z: 

REM RVS-CHARACTER 
470 NEXT 
480 GOTO 200 
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2.5 Modifying the character set with a joystick 


For certain applications it is often desirable to have 
special characters available which appear immediately upon 
pressing a key. Such things as Greek letters, often used in 
mathematical formulas, fall into this category. 

When you have a suitable application, you can first 
draw your characters in raster representation on a piece of 
graph paper and then POKE the appropriate values into the 
duplicate of the character generator, but this is rather 
tedious. 

Here is a small program which eases the development and 
definition of characters. It is necessary to use a joystick 
in control port 1 in order to use the program. 

The program makes two copies of the built-in character 
generator into RAM. A character is taken from the first copy 
and displayed as a sprite, once in regular size and again in 
double size so that it is easier to read. 

A flashing point (which we call the microcursor and 
which you can move with the joystick) appears on the screen. 

The desired action (drawing lines, erasing lines, or 
positioning the microcursor) is accomplished by pressing the 
fire button on the joystick. The current mode is displayed 
on the screen. 

Once the character is designed to your satisfaction, 
press the FI key. This new character is placed into the 
alternate character set (second copy). To accept the 
character and leave it unchanged, press the G key. Now you 
can work on the next character. After you have edited all 
512 characters the program ends. 
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Why 512 characters? 

There are 128 printable characters in each display 
mode, upper/lower case or upper/graphics node. The same 
characters displayed in reverse bring the total up to 256. 
This gives a grand total of 512 characters for the two 
display nodes. The positions of the characters within the 
character generator can be found on page 132 of the user's 
guide for the C64. 

Before we discuss the program itself, you should know 
the significance of the variables and memory addresses used. 

First the variables: 

C base address of the first duplicate of the character to 
be displayed next 

CD base address of the transferred character in the second 
copy 

CP character position counter in the range 0-511 
JB condition of the button on the joystick 
JR position of the joystick 
JS address of control port 1 
MA counter for the operating mode 
PO microcursor position within the addressed byte 
PP address of the microcursor within the sprite data of the 
microcursor 

PV immediate value of the byte of the sprite data, addressed 
by the joystick 

SB base address of the sprite data 

V base address of the video controller 

X x position of the sprites on the screen 
XJ x position of the microcursor 

Y y position of the sprite on the screen 
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YJ y position of the microcursor 


The addresses: 

56 high byte of the pointer to top of memory 
648 pointer to the start of video ram 
832 start address of the cassette buffer 

Because the cassette buffer is not used within the 
program, the machine language program is placed in it. 

50196 pointer for sprite 1 

50170 pointer for sprite 2 

53272 pointer for video ram and character generator within 
the video controller 

56576 This location contains the two bits which determine 
the 16K range for the memory addressed by the video 
controller. 


Here is a step-by-step description of the program: 


10 


30-233 


1000-1010 


The top of memory is lowered because the first 
duplicate of the character set will be loaded 
here. 

Sprites 1 & 2 are turned on and their color is 
set. The sprite pointers are loaded and sprite 
2 is switched to double size. 

The sprite data are first erased and the 
sprites are positioned in the approximate 
middle of the screen. 

The machine language program. 

For those who are interested, here is the 
program in assembly language: 
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SEI disable interrupts 

LDA #$33 make character generator available 

STA 1 

LDA #0 

STA $5F old block-start low 

STA $5A old block-end low 

STA $58 new block-end low 

LDA #$D0 

STA $60 old block-start high 

LDA #$F0 

STA $59 new block-end high 

LDA #$E0 

STA $5B old block-end high 

JSR $A3BF block shift routine 

LDA #$37 
STA 1 

CLI allow interrupts 

RET back to BASIC 

1020-1040 The machine language program is put into the 

cassette buffer and executed—two duplicates 
are made of the character generator. 

1060 The operating system is informed of the changes 
made. The positions of the character generator 
and video RAM are changed (necessary because of 
the hardware). The characters you now see on 
the screen are already coming from copy 2. 

2000-2360 The characters are converted to sprites one 

after the other and can be changed. 

2380 After working on all of the characters, the top 

of memory is raised again because copy 1 is no 

longer needed. 
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4000-4070 


5000-12040 

13000-13200 


20000-20080 


The joystick is polled and program execution 
branches depending on the position of the 
joystick and condition of the fire button. 

The cursor position is modified based on the 
position of the joystick. 

The position of the joystick is use to modify 
the position of the microcursor and this point 
is alternately flashed on and off. 

Characters successfully completing editing are 
here transferred to the second copy. 


One feature of this program to note is that the 
modified character generator does not take up any BASIC 
storage space. It is placed in RAM under the kernel (that is 
to be taken verbatim since RAM and ROM overlap each other in , 
the C64). 

The video RAM has been moved to address 49152, an 
address you should keep in mind if you do any POKEing to the 
video RAM. It is unfortunately determined by the hardware of 
the Commodore 64 that the shifting of the video RAM must 
accompany relocation of the character generator. This 
problem is explained in detail in our book The Anatomy of 
the Commodore 64. 


10 

POKE 56,144: 
CLR 

20 

0=53248: 

POKE 53281,0 

30 

POKE 0+21,6: 
POKE 0+40,1: 
POKE 0+41,1 

40 

POKE 50169,16: 
POKE 50170,16 

42 

POKE 0+23,4: 
POKE 0+29,4 

50 

FOR 1=0 TO 62: 

POKE 50176+1 
NEXT 
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The program listing: 

55 x=150: 

Y= 100 

223 POKE 0+4, X 

226 POKE 0+2,X—40 

233 POKE 0+16,0 

320 POKE 0+5,Y: 

POKE 0+3,Y+19 

1000 DATA 120,169,51,133,1,169,0,133,95,133,90,133,88,1 
69,208,133,96,169,240 

1010 DATA 133,89,169,224,133,91,32,191,163,169,55,133,1 
,88,96 

1020 FOR 1=832 TO 832+33 
1030 READ A: 

POKE I, A: 

NEXT 

1040 SYS 832: 

POKE 850,160: 

SYS 832 

1060 POKE 53272,8: 

POKE 56576,PEEK(56576) AND 252: 

POKE 648,192 
1070 PRINT CHR$ <147) 

2000 C=9*4096 

2020 FOR CP=0 TO 511: 

PRINT CHR$(19)CP: 

8B=50176 

2040 FOR 1=0 TO 7 

2060 POKE SB+3*I,PEEK(C+I) 

2080 NEXT I 
2360 C=C+8: 

SQSUB 4000: 

NEXT CP 

2380 POKE V+21.0: 

POKE 56,160: 

CL.R : 

END 

4000 XJ=0: 

YJ=0: 

JS=56321: 

SB=50176 

4020 JR=(255-PEEK US)> AND 15: 

Jtl= (255-PEEK (JS) ) AND 16 
4030 IF JB 

[HEN MA=MA+l: 

IF MA>2 
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THEN MA=0 
4040 ON JR 

SOTO 5000,6000,4020,7000,8000,9000,4020,10000,1100 
0,12000 

4045 IF PEEK (203) 04 
THEM 4066 

4050 PRINT CHRJ* (19) CHR$ (145) CHR$ (18) "SAVE" : 

SOSUB 20000 
4055 RETURN 

4066 IF MA=1 

THEN PRINT CHRS<145)CHR*<145)CHR*(18)" SET" 

4067 IF MA=2 

THEN PRINT CHR$<145)CHR*(145)CHR*(18)" CLR" 

4068 IF PEEK(203)=26 
THEN RETURN 

4069 IF MA=0 

THEN PRINT CHR*(145)CHR*(145)“ 

4070 BOSUB 13000: 

SOTO 4020 

5000 REM UP 
5020 YJ=YJ-1: 

IF YJ<0 
THEN YJ=0 
5040 SOSUB 13000: 

SOTO 4020 
6000 REM DOWN 
6020 YJ=YJ+l: 

IF YJ >7 
THEN YJ=7 
6040 BOSUB 13000: 

SOTO 4020 
7000 REM LEFT 
7020 XJ=XJ-l: 

IF XJ<0 
THEN XJ=0 
7040 SOSUB 13000: 

SOTO 4020 

8000 REM LEFT UP 
8020 XJ=XJ-1: 

IF XJ<0 
THEN XJ=0 
8040 SOTO 5000 
9000 REM LEFT DOWN 
9020 XJ=XJ-1: 

IF XJ<0 
THEN XJ=0 
9040 SOTO 6000 
10000 REM RIGHT 

10020 xj=xj+i: 

IF XJ>7 
THEN XJ=7 
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10040 GOSUB 13000: 

GOTO 4020 

11000 REM RIGHT UP 
11020 XJ=XJ+l: 

IF XJ >7 
THEN X J=7 
11040 GOTO 5000 
12000 REM RIGHT DOWN 
12020 X0=XJ+1: 

IF XJ>7 
THEN XJ=7 
12040 GOTO 6000 
13000 REM 

13020 PP=SB+YJ*3+INT<XJ/8> : 

PV=PEEK<PP> 

13040 P0=XJ~INT<XJ/8>*8 
13060 IF PV AND 2"'-<7-P0> 

THEN POKE PP, <PV AND <255-2"' (7-PO))): 
GOTO 13100 

13080 POKE PP, (PV OR <2"' (7-PO) ) ) 

13100 IF MA=1 

THEN PV= <PV OR <2'" <7-P0) ) ) 

13120 IF MA=2 

THEN PV=<PV AND <255-2 '(7-PO))) 

13200 FOR 1=0 TO 50: 

NEXT : 

POKE PP,PV: 

RETURN 

20000 REM TRANSFER NEW CHARACTER 

20010 CD=C+20472 

20020 FOR 1=0 TO 7 

20040 POKE CD+1,PEEK < SB+3*I) 

20060 NEXT I 
20080 RETURN 
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2.6 Dividing the screen 


There is one special feature of the video controller in 
the Commodore 64 which makes some very interesting effects 
possible, but which is also seldom heard about: the raster 
interrupt. 

In order to clarify this feature to you, we must dig a 
bit deeper into how the video controller creates an image on 
the screen. 

The screen picture is constructed from individual 
lines, which you can see clearly if you take a close look at 
it. You can also recognize that a character is made up of 
eight lines. The video controller has a register which 
always contains the screen line currently being displayed. 
This is register 18, and is located at address 532484-18 = 
53266. If you examine the contents of this register using 

PRINT PEEK(53266) 

the value of the raster line displayed at the exact time the 
PEEK command was executed is shown. Since 25 screen images 
are displayed in one second, you cannot obtain these values 
quickly enough in BASIC and must therefore program in 
machine language. 

Another feature of the video controller is its ability 
to interrupt a program just before it displays a given 
raster line. To program a raster interrupt you must first 
allow the interrupt condition to actually interrupt the 
microprocessor (by setting the appropriate value in the 
interrupt register) and then setting the raster line number 
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at which the interrupt is to take place (by setting the 
value in register 18). 

Interrupt service programming must be done in machine 
language. The following program is a short machine language 
program to illustrate the use of raster interrupts. 


LINE 

ADDR 

CODE LABEL 

OF'C 

OPERAND 

COMMENTS 

0001 

033C 



IRQOLD 

EQU 

$EA31 


0002 

033C 



IRQVEC 

EQU 

$314 


0003 

033C 



RASTER 

EQU 

$D012 

5 RASTER LINE 

0004 

033C 



IRQREG 

EQU 

$D019 

j FLAB FOR VID 

EO INTERRUPT 






0005 

033C 



MASK 

EQU 

$D01A 

;VIDEO CONTRO 

LLER 

INTERRUPT MASK 




0006 

033C 



BORDER 

EQU 

$D020 

;BORDER COLOR 

0007 

033C 



COLOR 

EQU 

$D021 

SBACKGROUND C 

OLOR 








0008 

033C 



ICR 

EQU 

$DCOD 

5 FLAG FOR TIM 

ER INTERRUPT 






0009 

033C 



RETIRQ 

EQU 

$FEBC 

5 RETURN FROM 

INTERRUPT 







0010 

033C 



LINE1 

EQU 

$FB 


0011 

033C 



L.INE2 

EQU 

$FC 


0012 

033C 



COLOR1 

EQU 

$FD 


0013 

033C 



C0L0R2 

EQU 

$FE 


0014 

033C 




ORG 

828 

5 CASSETTE BUF 

FER 








0015 

033C 

78 


SETUP 

SEI 



0016 

033D 

A9 

5B 


LDA 

#<IRQNEW 


0017 

033F 

8D 

14 

03 

STA 

IRQVEC 


0018 

0342 

A9 

03 


LDA 

#>IRQNEW 


0019 

0344 

8D 

15 

03 

STA 

IRQVEC+i 


0020 

0347 

A5 

FB 


LDA 

LINE1 


0021 

0349 

8D 

12 

DO 

STA 

RASTER 

SRASTER LINE 

FDR INTERRUPT 





0022 

034C 

AD 

11 

DO 

LDA 

RASTER-1 


0023 

034F 

29 

7F 


AND 

#$7F 

5 CLEAR HIGH B 

IT 








0024 

0351 

8D 

11 

DO 

STA 

RASTER-1 


0025 

0354 

A9 

81 


LDA 

#$81 

5 PERMIT IRQ B 

Y RASTER 







0026 

0356 

8D 

1A 

DO 

STA 

MASK 


0027 

0359 

58 



CL I 



0028 

035A 

60 



RTS 
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0029 

035B 







0030 

035B 

AD 

19 

DO 

IRQNEW 

LDA 

IRQREG 

0031 

035E 

8D 

19 

DO 


STA 

IRQREG 

UPT FLAG 







0032 

0361 

29 

01 



AND 

#1 

0033 

0363 

DO 

07 



BNE 

SCREEN 

RASTER LINE? 





0034 

0365 

AD 

OD 

DC 


LDA 

ICR 

UPT FLAG 







0035 

0368 

58 




CL I 


INTERRUPT 






0036 

0369 

4C 

31 

EA 


JMP 

IRQOLD 

0037 

036C 







0038 

036C 

AD 

12 

DO 

SCREEN 

LDA 

RASTER 

LINE 








0039 

036F 

C5 

FC 



CMP 

LINE2 

0040 

0371 

BO 

OD 



BCS 

SECOND 

OR EQUAL 

SECOND VALUE? 



0041 

0373 

A5 

FD 



LDA 

COLOR1 

0042 

0375 

8D 

20 

DO 


STA 

BORDER 

0043 

0378 

8D 

21 

DO 


STA 

COLOR 

0044 

037B 

A5 

FC 



LDA 

LINE2 

PT AT 2ND 

LINE 





0045 

037D 

4C 

8A 

03 


JMP 

EXIT 

0046 

0380 

A5 

FE 


SECOND 

LDA 

C0L0R2 

0047 

0382 

8D 

20 

DO 


STA 

BORDER 

0048 

0385 

8D 

21 

DO 


STA 

COLOR 

0049 

0388 

A5 

FB 



LDA 

LINE1 

PT 








0050 

038A 

BD 

12 

DO 

EXIT 

STA 

RASTER 

0051 

038D 

4C 

BC 

FE 


JMP 

RETIRQ 


ASSEMBLY COMPLETE. 


100 

FOR I 

= 828 TO 911 



110 

READ 

X : POKE 

i,x : s=s+x 

: NEXT 


120 

DATA 

120,169, 

91,141, 20, 

3,169, 3, 

141 

130 

DATA 

251,141, 

18,208,173, 

17,208, 41, 

127 

140 

DATA 

169,129, 

141, 26,208, 

88, 96,173, 

25 

150 

DATA 

208, 41, 

1,208, 7, 

173, 13,220, 

88 

160 

DATA 

173, IS, 

208,197,252, 

176, 13,165, 

253 

170 

DATA 

141, 33, 

208,165,252, 

76,138, 3, 

165 

180 

DATA 

208,141, 

33,208,165, 

251,141, 18, 

208 

190 

IF S 

<> 10678 

THEN PRINT 

"ERROR IN DATA! 

200 

PRINT 

"OK" 





?CLEAR INTERR 


5 INTERRUPT BY 
5 CLEAR INTERR 
j ALLOW RASTER 


5 READ RASTER 


jGREATER THAN 


5 SET COLOR 1 
jNEXT INTERRU 


5SET COLOR 2 
jNEXT INTERRU 
5 AT LINE 1 


21, 3,165 

141, 17,208 

208.141, 25 
76, 49,234 

141, 32,208 

254.141, 32 
76,188,254 

" : END 
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As an example, we have developed a program which allows 
you to display one portion of the screen with a different 
background color. This allows you to eaphasize one or more 
lines on the screen. In order to keep the progran as general 
as possible, it allows you to select the color of the 
emphasized area as well as the background color of the rest 
of the screen with POKE commands. The raster line at which 
the switch to the second background color occurs can be set 
in the same Banner. This also applies to the number of the 
raster line at which the switch back to the first background 
color is Bade. 


This program also allows you to move a colored line 
with a width of a standard screen line (8 raster lines) on 
the screen by pressing the cursor-up and cursor-down keys. 
The function keys can be use to change the color of the line 
and the remaining background. 


iou L1=251: 

L2--L1 + 1: 

C1=L2+1: 

C2=C1+1 
110 L--50: 

SYS S28: 

REM INITIALIZE INTERRUPTS 
120 POKE L1,L: 

POKE L2.L+B: 

POKE Cl,6: 

POKE C2,3 
150 GET ft*: 

IF A*="" 

THEN 150 

160 IF ft*=CHR*(17) 

THEN BOBUS 200 
170 IF A*=CHR* <145) 

THEN GOSUB 300 
180 IF AS=CHR*(133) 

THEN GOBUB 400 
190 IF A*=CHR*<134> 

THEN GOSUB 500 
195 GOTO 150 
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200 IF L<240 

THEN FOR 1=0 TO 7: 

L=L+1: 

POKE Ll.L: 

POKE L2,L+8: 

NEXT 
210 RETURN 

300 IF L>50 

THEN FOR 1=0 TO 7: 

L=L-l: 

POKE Ll.L: 

POKE L2.L+8: 

NEXT 
310 RETURN 

400 POKE Cl,PEEK(Cl)+1 AND 15: 
RETURN 

500 POKE C2,PEEK(C2)+1 AND 15: 
RETURN 


You can change the progran to suit your own purposes by 
changing the raster line POKEd into aenory locations 251 
through 254. This allows you to change the point at which 
the switch to the second color occurs and the raster line at 
which the switch is made back to the original color 
(locations 251 and 252, respectively). The next two 
addresses, 253 and 254, contain the color codes of the first 
and second characters. 


Raster line 50 corresponds to the upper screen border 
(the point where the border begins), while the beginning of 
the lower border corresponds to raster line 250. A screen 
line is divided into 8 raster lines. You can also place the 
border between the two different colors in the Biddle of a 
screen line. 
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Switching background colors is not the only effect 
which the raster interrupt allows. Any of the video 
controller parameters can be changed under interrupt 
control. You can, for instance, nix two graphics screens or 
a graphics screen and a text screen on the display using the 
same technique we used for the background colors. You might 
even try displaying different character sets at different 
parts of the screen all at the same time! 

With this technique, you can also obtain effects which 
are not otherwise possible with the Commodore 64. For 
example, the raster interrupt makes it possible to display 
more than 8 sprites at one time. You can display eight 
sprites in the upper half of the screen. When a certain 
raster line is reached, you simply reset the sprite pointers 
and coordinates and you can display eight more sprites in 
the lower half of the screen. Naturally, you can also divide 
the screen into more than two parts. 
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2.7 Smooth scrolling 

Scrolling is the term given to the action the screen 
performs when all of the information on it is moved in one 
direction (generally up). When the screen scrolls up, a line 
is left blank at the bottom so that more information can be 
printed. 

By "smooth" scrolling we mean the ability to display a 
new line on the screen gradually while the old line 
gradually disappears. The video controller allows us this 
possibility using register 17. The three least-significant 
bits allow the screen to scroll up to eight raster lines at 
a time, which corresponds exactly to a screen line. In order 
to display a new line on the screen, we can tell the video 
controller to display only 24 lines. This is the case when 
bit 3 of register 17 is cleared to zero. 

First we switch the screen over to 24 lines and then 
position the rest of the screen contents so that the upper 
24 lines will be displayed. Now we can write something to 
the invisible 25th line and shift the visible portion of the 
screen up 8 raster lines = 1 screen line. This causes the 
top line to disappear. 

In addition to scrolling up (or down), the video 
controller is able to smooth-scroll horizontally, to the 
right or left. The three least-significant bits of register 
22 apply to the column-wise shifting, while bit 3 forces the 
controller to display in 38 columns. 

This example program scrolls the screen up. 
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20 FOR J=i TO .100: 

NEXT 

100 VIDE0=5324B 

110 LINE=VIDE0+17 
115 X*=CHR$<19): 

FOR 1=1 TO 24: 

X$=X$+CHR$(17): 

NEXT 

120 POKE LINE,PEEK(LINE) AND NOT 8 

130 POKE LINE,PEEK(LINE) AND 248 OR 7 

140 N=N+1: 

A$="LINE"+STR$(N): 

BOSUB 200: 

GOTO 140 
200 PRINT : 

PRINT X$A*; 

210 FOR 1=7 TO 0 STEP -1 

220 POKE LINE,PEEK(LINE) AND 248 OR I 

230 FOR J=1 TO 250: 

NEXT 
240 NEXT : 

RETURN 


115 A string is defined consisting of one "cursor- 

hone" and 24 "cursor-down" characters for 

positioning the cursor in the 25th line. 

120 Bit 3 in register 17 of the video controller is 

erased, switching the display to 24 lines. 

130 Bits 0 through 2 are set. This displays the upper 

24 lines of the screen while the 25th remains 
invisible at the lower screen border. 

140 The counter N is incremented. The text for the 

line to be printed is placed in A$ for the 
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subroutine at 200, and this subroutine is called. 

200 The screen is shifted up one line by the PRINT 

command. The text is then printed on the last 
line. 

210-240 This loop shifts the screen up 8 raster lines. The 
delay loop controls rate at which the scrolling 
will occur. 


- 40 



Tricks & Tips 


2.8 Changing the keyboard layout 


The keyboard of the Commodore 64 is organized as a 
matrix with eight rows and eight columns. The lines of the 
eight rows are tied to port A (address $DC00 = 56320) of CIA 
1 and the eight columns are connected to port B (address 
$DC01 = 56321) of CIA 1. When polling (reading) the 
keyboard, (address $FF9F = 65485) it is polled row by row, 
during which each row sends a signal over port A. If a key 
is pressed, you can determine the column of the pressed key 
over port B. The key numbers between 0 and 63 are calculated 
from the row and column numbers. 64 indicates that no key is 
pressed. The organization is given in the table below. This 
key number is placed in location $CB (203) after each 
polling. The number of the key last pressed is stored in $C5 
(197). The status of the special keys is stored in address 
$0280 = 653 when polling. Bit 0 indicates SHIFT, bit 1 is 
reserved for the COMMODORE key, and bit 2 is for the CTRL 
key. The assignment of a particular character to a 
particular key is controlled by various tables which 
determine the ASCII value to be assigned to any given key. 
Because all keys on the Commodore 64 can have four different 
meanings, there are four such tables. Notice the difference 
between the right and left shift keys. Shift lock is tied to 
the left shift key. 
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Col 

Row 

0 

0 

1 

2 

3 


4 

5 

6 

7 

DEI 

RETURN 

CURRI6HT 

F7 


FI 

F3 

F5 

CURDOWN 

1 

3 

W 

A 

4 


Z 

S 

E 

SHIFT LT 

2 

5 

R 

D 

6 


C 

F 

T 

X 

3 

7 

Y 

G 

8 


B 

H 

U 

V 

4 

9 

I 

J 

0 


M 

K 

0 

N 

6 

+ 

P 

L 

- 


. 

: 

@ 

» 

6 ] 

POUND 

* 

; HOME 

SHIFT RIGHT 

= 


/ 

7 

1 

ARROW 

CTRL 

2 

SPACE 

C = 

Q 

STOP 


The 

first 

assignment 

table 

gives 

the ASCII 

code when 

the 

key 

is pressed alone. 

The 

second 

table 

contains the 


codes for when the key is pressed along with the SHIFT key, 
the third table for when the Commodore key is pressed, and 
the fourth and final table is for the control key. An entry 
of $FF=255 in this table marks an illegal entry. The keys 
SHIFT, COMMODORE, and CTRL are handled differently; the 
corresponding entries in the first table are 1, 2, and 4. 
This status is saved in $28D=653. Bits 0, 1, and 2 
correspond to these three keys. 

If we want to assign a different code to a key, we must 
change the corresponding entry in the table. Because the 
table is stored in ROM, it is not possible to change it 
directly. The Commodore 64 has RAM as well as ROM available 
to it in the same address range, however, allowing the 
kernel to be copied to the "underlying" RAM and there 
changed. This can be done with a small BASIC program. At the 
same time, BASIC itself must also be copied into the 
underlying RAM. 
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100 FOR I = 40960 TO 49151 : REM COPY BASIC RAM 
110 POKE I, PEEK(I) : NEXT 

120 FOR I = 14*4096 TO 65535 : REM COPY KERNAL 
130 POKE I, PEEK(I) : NEXT 
140 POKE 1,53 

lines 100 to 130 copy the kernal and BASIC from ROM 
into the underlying RAM. The switch from ROM to RAM is made 
in line 140, so that the kernal is now running in RAM. Now 
we can proceed to change the codes of individual keys. 

We need to know the addresses of the four tables: 


Table 1 
Table 2 
Table 3 
Table 4 


unshifted 
with shift 
with Commodore 
with CTRL 


$EB81 = 60289 
$EBC2 = 60354 
$EC03 = 60419 
$EC78 = 60536 


If we want to change a code, we must determine the 
number of the key we wish to change from the matrix table. 
The numbering runs from 0 in the upper left-hand corner to 
63 in the lower right. To find the key number, multiply the 
row number by 8 and add the column number. Y, for instance 
has the number 25 and Z the number 12. The number of the key 
is used as the offset to the start of the desired table. 


With the help of these four tables you can define 4*64 
or 256 different characters. The RESTORE key cannot be 
redefined since it is tied directly to the non-maskable 
interrupt (NMI) line of the processor. The key definition 
remains until STOP/RESTORE is pressed. Since these two keys 
switch the ROM back on. This can be prevented by changing 
the value for the memory configuration in RAM. This can be 
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done in the previous program in line 150: 

150 POKE 64982, 53 

Instead of determining the number of the key from the 
matrix, one can obtain it from the program itself. This 
program reassigns keys and determines the appropriate key 
number itself: 


100 DIM T(4): FOR 1=1 TO 4: READ T(I): NEXT 
110 DATA 60289,60354,60419,60536 

120 FOR 1=14*4096 TO 65535: POKE I, PEEK(I): NEXT 
130 FOR 1=40960 TO 49151 : POKE I, PEBK(I) : NEXT 
140 POKE 1,63: POKE 64982, 53 

1000 PRINT "PLEASE PRESS THE KEY WHICH YOU WISH TO CHANGE” 
1010 GET A$: IF A$=”" THEN 1010 
1020 PRINT A$ 

1030 A = ASC(AS) 

1040 FOR J=1 TO 4: T=T(T) 

1050 FOR 1=0 TO 63: IF PEEK(T+1) <> A THBN NEXT: NEXT 
1060 PRINT "PRESS THE KEY WHICH YOU WISH TO ASSIGN" 

1065 PRINT "TO THE FIRST” 

1070 GET A$: IF A$="" THEN 1070 
1080 PRINT A$ 

1090 POKE T+I, ASC(A$): GOTO 1000 
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Chapter 3: Easy Data Entry 


3.1 Cursor positioning and determining cursor position 


For easy input and output on the screen, it is very 
useful to be able to set the cursor directly to any desired 
spot on the display. The Commodore 64 has a command for 
positioning the cursor on a line, the TAB command and the 
POS function for determining the column, but no commands for 
moving the cursor directly to any spot on the screen and it 
is only possible to move forward with the TAB command. 

The kernal already contains routines for arbitrarily 
positioning the cursor, however. Two memory locations in 
page zero are reserved for the row and column of the cursor 
position. By reading these values with PEEK we can determine 
the cursor position at any time. 

100 PRINT "THE CURSOR IS IN LINE"PEEK(214)"C0LUMN"PEEK(211) 

If we want to set the cursor, it is not enough to just 
POKE the appropriate values in addresses 214 and 211. The 
kernal must still calculate the required pointer for screen 
and color RAM based on the cursor position. There is a 
routine in the kernal that will do this for us. 
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100 REM SET CURSOR 
110 INPUT "ROW";R 
120 INPUT "COLUMN" ;C 
130 POKE 214, R 
140 POKE 211,C 
150 SYS 58640 
160 PRINT "TEST"; 

Calling 58640 with SYS 58640 sets the cursor at the 
position determined by locations 214 and 211. 

The combination of these two procedures gives us new 
capabilities for programming. You can provide status lines 
in your programs, for instance, in which information can be 
given to the user from time to time. So as not to disturb 
the rest of the screen, save the current position before 
moving the cursor to the status line. Then print the message 
on the status line, set the cursor position back to the 
original value, and continue with the execution of the 
program. A program fragment might look like this: 


300 R=PEEK(214): REM ROW 

310 C=PEEK(211): REM COLUMN 

320 POKE 214,0: REM CURSOR IN ROW 0 

330 POKE 211,10: REM CURSOR IN COLUMN 10 

335 SYS 68640 

340 PRINT "PLEASE INSERT DISK" 

350 POKE 214,R: REM RESTORE ROW 
360 POKE 211,C: REM COLUMN 
370 SYS 58640 


The rows are numbered from 0 to 24 and the columns from 
0 to 39. 
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3.2 Turning the cursor on and off 


The cursor marking the current screen position on the 
Commodore 64 is automatically turned on when the computer is 
expecting input. This is the case when an INPUT command is 
executed, for example. When you perform input with GET, 
however, no cursor appears. There are times however when it 
would be nice to have the cursor flashing when using GET so 
that the user is aware that the program is expecting input. 

The Commodore 64 has a memory location (204) that 
functions as a flag for the cursor. If this location 
contains the value 1 (or any other value not equal to zero), 
the computer knows that the cursor is turned off and a Jump 
is made (during the interrupt) to the corresponding location 
in the kernel. A value of zero tells the computer to flash 
the cursor. 

We can make use of this fact when we want to turn the 
cursor on and off under program control. We can, for 
example, turn the cursor on before a GET command, then wait 
for a key press and turn the cursor off. 

100 POKE 204,0 : HEM CURSOR ON 

110 GET A$: IF A$="" THEN 110: REM WAIT FOR KEY PRBSS 
120 POKE 204,1: REM CURSOR OFF 
130 PRINT A$; 

It may happen that the cursor is turned on and 
immediately turned off while it is still in the on phase. If 
this happens, a white square will remain on the screen. This 
can be avoided if one first checks to see if the cursor is 
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in the on phase before it is turned off. There is also a 
memory location in page zero to accomplish this. Inserting 
the following line into our example program will cause the 
computer to wait until the cursor is in the off phase before 
turning it off. 

115 IF PEEK(207) THEN 115: HEM WAIT UNTIL CURSOR IS OFF 
You can find an application of this technique in section 3.5. 
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3.3 Repeat function for all keys 


You have no doubt noticed while working with your 
Commodore 64 that the cursor control keys and the space bar 
repeat when held down. This is especially useful for 
positioning the cursor and editing programs. With just a 
simple POKE command, the repeat function can be extended to 
all keys. This is particularly helpful for such things as 

word processing. The switch can be made in the direct mode 

or in a program and can also be switch ed back by either of 
these methods. The address used to make the switch is 650. A 
value of 0 means that only the cursor keys are automatically 
repeated. If you write the value 128 into memory location 
650 with POKE, all keys will repeat. It is also possible to 
turn the repeat function off entirely by placing the value 
64 in address 650. 

100 POKE 650,128: REM REPEAT FOR ALL KEYS 

200 POKE 650,0 : REM REPEAT FOR CURSOR ONLY 

300 POKE 650,64 : REM TURN REPEAT OFF 

The repeat delay and repeat rate values are found in 
locations 651 and 652, respectively. These values are always 
renewed by the kernal, so changes are only possible by 
moving the kernal to RAM (see sections 2.6 and 4.2). 
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3.4 The WAIT command: Waiting for a key press 


The WAIT command is a little-used BASIC command. We 
will show you what it does and what it can be used for. 

WAIT A,B 

This command gets the contents of memory location A (as 
in a PEEK command), and ANDs this value with B. If the 
result is not zero, program execution continues. It is 
assumed in this description that the value of A is either 
the address of an I/O port or some other peripheral, or that 
the value of A is changed by an interrupt. Otherwise the 
command will either wait forever or not at all. 

The most interesting use is waiting for a certain key 
press. Memory location 653, for example, contains 
information about whether or not the SHIFT, COMMODORE, or 
CTRL keys have been pressed. You can use the WAIT command to 
wait until one of these keys has been pressed. 

100 PRINT "PRESS THE CONTROL KEY” 

110 WAIT 653,4: REM WAIT FOR CTRL 
120 ... 


In line 110 the program waits until the control key is 
pressed. You can wait for the shift and Commodore keys with 
the following WAIT commands: 

WAIT 653,1: REM WAIT FOR SHIFT 

WAIT 653,2: REM WAIT FOR COMMODORE KEY 
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If you want to wait for any desired key press, you can 
check location 203. If no key is pressed, this location 
contains then value 64, otherwise it contains the matrix 
number of key pressed (see section 2.6). With 

WAIT 203,64 

the program waits as long as a key pressed. With 
WAIT 203,63 

the computer waits until a key is pressed. This key can then 
be determined through use of the GET command, for example. 

100 WAIT 203,63 
110 GET A$: PRINT A$; 

The WAIT command will be ended only when a key is 
pressed. If there is data already in the keyboard buffer, 
you can also make the number of pressed keys the basis of 
the WAIT command. 

100 WAIT 198,255 
110 GET A$: PRINT A$; 

120 GOTO 100 
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3.5 Assigning the function keys 


The Commodore 64 has, in addition to its alphanumeric 
keys, four function keys, each of which has two functions. 
These keys can be used for menu control, for instance, in 
order to select a certain part of a program. These keys can 
be polled with GBT and then execution can be transferred 
depending on the key pressed. The function keys have the 
following ASCII codes: 


fl 

= > 

133 

f 3 

= > 

134 

f5 

= > 

135 

f7 

= > 

136 


Pressing the shift key at the same time increments the ASCII 
value by four: 

f2 => 137 
f4 => 138 
f6 => 139 
f8 => 140 


The function keys can be polled in the following manner: 


100 

110 

GBT A$ : IF 

A = ASC(A$) 

' A$ = 

"" THEN 

100 


120 

IF 

A = 

133 

THEN 

1100 : 

REM 

Fl 

130 

IF 

A = 

134 

THEN 

1200 : 

REM 

F3 

140 

IF 

A = 

135 

THEN 

1300 : 

REM 

F5 

150 

IF 

A = 

136 

THEN 

1400 : 

REM 

F7 

160 

IF 

A = 

137 

THEN 

1500 : 

REM 

F2 
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170 IF A = 138 THEN 1600 : REM F4 
180 IF A = 139 THEN 1700 : REM F6 
190 IF A = 140 THEN 1800 : REM F8 
200 GOTO 100 

Control is passed to the appropriate line based on the 
function key that was pressed. This can be accomplished in a 
■ore elegant fashion with an ON ... GOTO statement. 

100 GET A$ : IF A$="” THEN 100 

110 A = ASC (A$) : IF AC133 OR A>140 THEN 100 

120 ON A-132 GOTO 1100,1200,1300,1400,1500,1600,1700,1800 

This technique can be used within a program. We would 
now like to present to you a program which allows a string 
of characters to be assigned to each function key and which 
will display this string on the screen whenever the function 
key is pressed. The function keys could be assigned with 
BASIC command words, for instance. It is also possible to 
assign a word followed by a RETURN to a function key. This 
allows the command to be executed directly. If, for example, 
the string "IIST”, followed by the code for RETURN, is 
assigned to the FI key, then the program currently in memory 
will be listed whenever the FI key is pressed. The maximum 
length of the string assigned to a function key is 10 
characters, the length of the keyboard input buffer. 

With our program, you can assign not just eight 
different strings to the function keys (dual assignment— 
with or without the shift key), but sixteen. The Commodore 
and control keys are used along with the shift key to select 
the desired function from among the four keys. We have 
chosen the following assignments for the keys: 
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fl => fl 

f2 => f3 

f3 => f5 

f4 => f7 

f5 => fl plus SHIFT 

f6 => f3 plus SHIFT 

f7 => f5 plus SHIFT 

f8 => f7 plus SHIFT 

f9 => fl plus COMMODORE 

flO => f3 plus COMMODORE 

fll => f5 plus COMMODORE 

f12 => f7 plus COMMODORE 

f13 => fl plus CTRL 

f14 => f3 plus CTRL 

f15 => f5 plus CTRL 

f16 => f7 plus CTRL 


Here is the machine language program which allows the 


assignment of 

the 

function 

keys 

. The strings 

will be placed 

in memory by a 

BASIC program. 



OOOl 033C 





5 FUNCTION KEY 

S FOR CBM 64 
0002 033C 





5 

0003 033C 





; 

0004 033C 



ORG 

828 

5 CASSETTE BUF 

FER 

0005 033C 


KEYVEC 

EQU 

*28F 

5 VECTOR FOR K 

EYBOARD DECODING 





0006 033C 
ECODER TABLE 


KEYPNT 

EQU 

$F5 

5 POINTER TO D 

0007 033C 

FER 


BUFFER 

EQU 

$277 

j KEYBOARD BUF 

0008 033C 


NOKEYS 

EQU 

$C6 

;NUMBER OF CH 

ARACTERS IN KEYBOARD BUFFER 



0009 033C 
FT/CBM/CTRL 


SHIFT 

EQU 

$28D 

5 FLAG FOR SHI 

0010 033C 


KEYNO 

EQU 

$CB 

5 MATRI X NUMBE 

R FOR PRESSED 
0011 033C 

ST KEY 

KEY 

LSTKEY 

EQU 

$C5 

5 NUMBER OF LA 

0012 033C 


TEMP 

EQU 

LSTKEY 
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0013 033C 




FMIN 

EQU 

00 

cn 

;CODE FOR LOW 

EST FUNCTION 

KEY 





0014 033C 




FMAX 

EBU 

$88 

5 CODE FOR HIG 

HEST FUNCTION KEY 





0015 033C 




SETFLG 

EBU 

$EB26 


0016 033C 




OLDKEY 

EBU 

$EB48 

HOLD KEYBOARD 

ASSIGNMENT 







0017 033C 







; 

0018 033C 

A9 

47 


INIT 

LDA 

#<FNCTN 

5 SET VECTOR T 

0 NEW ROUTINE 






0019 033E 

AO 

03 



LDY 

#>FNCTN 


0020 0340 

8D 

8F 

02 


STA 

KEYVEC 


0021 0343 

8C 

90 

02 


STY 

KEYVEC+1 


0022 0346 

60 




RTS 



0023 0347 







5 

0024 0347 

A4 

CB 


FNCTN 

LDY 

KEYNO 

5 KEY NUMBER 

0025 0349 

C4 

C5 



CRY 

LSTKEY 

;SAME AS BEFO 

RE? 








0026 034B 

FO 

OA 



BEQ 

NOFUNC 

; YES 

0027 034D 

B1 

F5 



LDA 

(KEYPNT),Y 

SASCI I CODE 

0028 034F 

C9 

89 



CMP 

#FMAX+1 

5 COMPARE WITH 

HIGHER FUNCTION KEY 




0029 0351 

BO 

04 



BCS 

NOFUNC 

UNO function 

KEY? 








0030 0353 

C9 

85 



CMP 

#FMIN 


0031 0355 

BO 

03 



BCS 

FTN 


0032 0357 

4C 

48 

EB 

NOFUNC 

JMP 

OLDKEY 

;T0 OLD KEYB0 

ARD EVALUATER 






0033 035A 

E9 

85 


FTN 

SBC 

#FMIN 


0034 035C 

85 

C5 



STA 

TEMP 


0035 035E 

OA 




ASL 



0036 035F 

OA 




ASL 


;TIMES 10 

0037 0360 

65 

C5 



ADC 

TEMP 


0038 0362 

OA 




ASL 



0039 0363 

AE 

8D 

02 


LDX 

SHIFT 

;flag shift/c 

BM/CTRL 








0040 0366 

EO 

01 



CPX 

#1 

;SHIFT? 

0041 0368 

FO 

OE 



BEQ 

SHIFTK 


0042 036A 

EO 

02 



CPX 

#2 

; CBM? 

0043 036C 

FO 

07 



BEB 

CBMKEY 


0044 036E 

EO 

04 



CPX 

#4 

5 CTRL? 

0045 0370 

DO 

09 



BNE 

NOSPEC 


0046 0372 

18 



CTRLKY 

CLC 



0047 0373 

69 

28 



ADC 

#40 


0048 0375 

18 



CBMKEY 

CLC 



0049 0376 

69 

28 



ADC 

#40 

5 POINTER TO N 

EXT TABLE 








0050 0378 

18 



SHIFTK 

CLC 



0051 0379 

69 

28 



ADC 

#40 


0052 037B 

AA 



NOSPEC 

TAX 


5 POINTER TO I 

NDEX 








0053 037C 

AO 

00 



LDY 

#0 


0054 037E 

BD 

00 

CF 

GETKEY 

LDA 

TABLE,X 

5 GET ASSIGNME 

NT FROM TABLE 






0055 03S1 

FO 

09 



BEB 

ENDKEY 






- 
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0056 0383 99 77 02 
BUFFER 

0057 0386 E8 

0058 0387 CB 


STA 

INX 

I NY 

BUFFER,Y 

SAND WRITE IN 

0059 0388 CO OA 
ALREADY 

0060 OSSA DO F2 


CPY 

BNE 

#10 

BETKEY 

S10 CHARACTER 

0061 038C 84 C6 

OF CHARACTERS 

ENDKEY 

STY 

NOKEYS 

5 SAVE NUMBER 

0062 038E A2 FF 

ALID KEYBOARD CODE 


LDX 

#$FF 

5 FLAB FOR INV 

0063 0390 4C 26 EB 
ABB 


JMP 

SETFLS 

SACTUALIZE FL 

0064 0393 

TABLE 

EQU 

*cfoo 


The following 

BASIC 

program generates 

the machine 

language code and 

places 

the 

strings for the 

16 function 

keys into memory. 

The strings 

themselves are 

stored in the 


program in DATA statements at line 300 and can naturally be 


changed as desired. Remember that the strings may not be 
more than ten characters long. If you want to execute a 
command immediately upon pressing the function key, a RETURN 
character must terminate the string. This can be done by 
placing a left-arrow as the last character in the string. 
When loading the strings into memory, this character will be 
converted to a RETURN (line 250). If you want to use a 
quotation mark within the string, use an apostrophe instead 
(see line 260). If a comma appears in the string, the string 
must be enclosed in quotation marks (as in line 330). 


100 FOR I = 828 TO 914 

110 READ X : POKE I,X : S=S+X ! NEXT 


120 

DATA 

169, 

71, 

160, 3,141 

130 

DATA 

203, 

196, 

197,240, 10 

140 

DATA 

.1 33 q 

176, 

3, 76, 72 

150 

DATA 

101, 

197, 

10,174,141 

160 

DATA 

240, 

7, 

224, 4,208 

170 

DATA 

24, 

105, 

40,170,160 

180 

DATA 

119, 

2, 

232,200,192 

190 

DATA 

76, 

38, 

235' 

200 

IF S 

<> 10591 

THEN PRINT 


210 PRINT "OK" 


143, 2,140,144, 2, 96,164 

177,245,201,137,176, 4,201 

235,233,133,133,197, 10, 10 
2,224, 1,240, 14,224, 2 

9, 24,105, 40, 24,105, 40 
0,189, 0,207,240, 9,153 

10,208,242,132,198,162,255 

ERROR IN DATA!!" : END 
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215 SYS 82B 

220 REM PLACE KEY ASSISNMENTS IN MEMORY 

230 AD = 12*4096+15*256 : REM *CFOO 

240 FOR 1=0 TO 15 : READ X* : FOR J=1 TO LEN<X$> 

250 A=ASC(MI D$(X$,J,1)) : IF A=95 THEN A=13 : REM RETURN 
260 IF A=39 THEN A=34 : REM QUOTE 
270 POKE AD+10*I+J—1,A : NEXT 

280 IF JOll THEN POKE AD+I*10+J-1,0 : REM END CRITERIUM 
290 NEXT 

300 DATA LIST*-, RUN*-, GOTO, CHR* < 

310 DATA ?FRE(6)*-,SAVE,PRINT,THEN 
320 DATA POKE, PEEK(,PRINT#,INPUT# 

330 DATA "LOAD' $’ , 8*- ",NEXT,GOSUB,RETURN 


The strings assigned to the function keys will be 
placed in free RAM at address $CFOO. If you are using this 
neinory area or you want to store the strings somewhere else, 
you must change the address in line 230 as well as the 
address in the DATA statement in line 170. Replace the 
fourth and fifth-last elements (0 and 207) with the low and 
high bytes of the new address. When you use a different 
address, remember that at least 160 bytes must be available 
there (16 keys * 10 characters). 


To change the function key assignments, all that is 
required is to change the strings in the DATA statements 
starting at line 220. 

Pressing RUN/STOP-RESTORE will unassign the function 
keys. You can restore them with SYS 828. 
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3.6 An Easy INPUT Boutins 

You have no doubt run across the problem of having your 
program "interrupted" after invalid input from the keyboard. 

There are two primary reasons for this: 

Input in the form INPUT A 

A program interruption occurs if the input does not consist 
of exclusively numeric characters. 

Input in the form INPUT A$ 

The program may crash if the RETURN key is pressed without 
previous alphanumeric input or if too few characters are 
entered. 

Input by means of GET A$ eliminates the first problem 
and can be used to eliminate the second, but many avoid it 
because of the necessity of building a string one character 
at a time if the input is longer than one character. In 
addition, no flashing cursor is displayed, something that 
would be desirable as a request for input. 

Once you have made sure that the obstacles are removed 
from data entry, it is still possible that data errors may 
creep in, which, while they will not cause the program to 
crash, may result in an erroneous result. 

let us look at a typical example using INPUT A$ to 
input numeric data. 

You want characters from the keyboard which you intend 
to convert to a numerical value by means of VAL(A$). You 
have avoided possible conflicts here that would have 
occurred with INPUT A (entering alphabetic data), although 
an illegal input has the following effect: 

You answer the INPUT with 123R56. The conversion with 
A=VAL(A$) puts the value 123 in A, certainly not the number 
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intended. 

Perhaps you object, saying that such input errors are 
the exception and not the rule and that getting the wrong 
answer now and then is not of much consequence in personal 
computing. 

We are of the opinion, however, that it should be your 
goal to produce "bomb-proof" programs, taking into 
consideration that you may have the opportunity to write 
programs which are not just for your own use. 

We want to present you with a ready-to-use subroutine 
which virtually eliminates the problems mentioned earlier. 
We describe certain parts of this program in detail which 
you can adapt to your own needs. 

First, the meanings of the variables and memory 
locations used in the program are explained. The following 
variables must be initialized before the subroutine is 
called: 

MN=0 Purely numerical input is desired. 

MN=1 The input may be alphanumeric. 

ML=0 The length given in IL is mandatory. 

ML=1 The length given in IL is the maximum. 

IL Mandatory or maximum length of the input 

Furthermore, the routine uses the following variables: 

CC Number of valid characters in IN$ 

CS Current cursor column 

CZ Current cursor line 

CP Length created by inserting an input field 

MS Highest cursor column during input 
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6$ Contains the character from the last GET 

IN$ The complete input is returned in this variable 

Memory locations used: 

204=0 Turn cursor on 
204=1 Turn cursor off 

205 Counter for the flash frequency of the cursor 

207=0 Cursor in OFF phase 

207=1 Cursor in ON phase 

211 Cursor column 

214 Cursor line 

One additional preparation necessary for using this 
routine is opening the screen with OPEN 1,3. This is 
required because the created input is read from the screen 
by means of GET#1 in line 35680. 

Now the individual program steps: 

35020 The variables are initialized and the cursor 
position is saved for the GET#1 in line 35680. 

35060 A character is read from the keyboard. 

35080 If this character is a RETURN, the input is 
ended depending on the length and the value in 
MI. 

35100-35130 If the DELETE key was used, the length and 
position counters are actualized if the input 
field contains only legal characters (CP=0) or 
if it was enlarged with INSERT. 

35140 INSERT is only executed if the length in IL will 
not be exceeded. 

35160-35180 Ensures that the cursor does not leave the input 
field when CRSR RIGHT and LEFT are used. 
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35200 Bntry point of the data filter depending on MN. 
35220-35240 If the cursor is within the data field and a 
purely numerical value will be entered, the 
characters will be accepted. The legal range, 
here set at values 47 through 58, can be changed 
as desired. 

In our example these values form the borders for 
the representable digits 0-9. You can find the 
appropriate values for the border of your 
choosing on page 135ff of the Commodore 64’s 
user’s guide. 

For our example that means that 47 corresponds 
with the character 0 and 58 stands for the 
character 9. All characters in between (0-9) are 
also legal. 

35300-35380 Here the same thing happens, but the legal 

range is expanded to include the letters of the 
alphabet. 

35400 If the input is not long enough (and Mt=0), 
input will not be ended. 

35600-35690 The input field is taken from the screen and put 
into IN$ until either the length given in IL is 
reached or no more data is found on the screen. 
Before this can happen, the cursor is reset to 
the position it had at the beginning of the 
routine so that the GET#1 starts at the 
beginning of the field. 

36000-36060 The cursor is turned off and the character in G$ 
is displayed on the screen. 

The line numbering of the routine was chosen 
arbitrarily. The routine may start with 1000, 50000, or some 
other number of your own choosing. Remember, however, to 
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change the line number references in GOTO, GOSUB, and 
IF...THBN statements accordingly. 

We recommend that you start the subroutines of each of 
your programs with the same line number. This makes it 
easier to write new programs using this subroutine library. 


Here now is the INPUT routine: 

35000 REM INPUT FROM KEYBOARD 
35020 IN*=" 

cc=o: 

CS=PEEK(211): 

CZ=PEEK <214): 

CP=0: 

MS=0 

35040 POKE 204,0: 

REM CURSOR ON 
35060 BET G$: 

IF 6*="" 

THEN 35060 
35080 G=ASC<G*>: 

IF G=13 
THEN ON ML+1 

GOTO 35400,35600 
35100 IF G=20 AND CP>0 
THEN CP-CP-1: 

GOSUB 36000: 

GOTO 35060: 

REM DELETE 

35120 IF G=20 AND COO AND F'EEK(211)>CS 
THEN CC=CC-l: 

MS=MS-l: 

CP=CP-1: 

GOSUB 36000: 

GOTO 35060 

35130 IF B-20 AND PEEK(211)>CS 
THEN MS=MS-1: 

GOSUB 36000: 

GOTO 35060 

35140 IF G=148 AND CP+MSCIL 
THEN CP-CP+l: 

MS=MS+1: 

GOSUB 36000: 

GOTO 35060: 

REM INSERT 

35160 IF G=29 AND PEEK(211><=CS+IL-1 
THEN GOSUB 36000: 

GOTO 35060: 

REM CURSOR RIGHT 
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35180 IF 6=157 AND F'EEK<211)>CS 
THEN GOSUB 36000: 

GOTO 35060: 

REM CURSOR LEFT 
35200 ON MN 

GOTO 35300 

35220 IF G>47 AND G<58 AND CCCIL AND PEEK(211)<=CS+IL-1 
THEN CC=CC+l: 

GOSUB 36000: 

GOTO 35360 
35230 GOTO 35360 

35240 IF G>47 AND G<58 AND PEEK<211)<=CS+IL 
THEN GOSUB 36000: 

GOTO 35360 

35300 IF G<48 OR <G>57 AND G<65> OR <G>90 AND G<193> OR 
G >218 

THEN 35060 

35320 IF CCCIL AND PEEK<211)<=CS+IL-1 
I HEN CC=CC+1: 

GOSUB 36000: 

GOTO 35360 

35340 IF F'EEK <211) <CS+1L 
THEN GOSUB 36000 
35360 IF CP>0 

THEN CP=CP-1 
35380 GOTO 35060 
35400 IF CCOIL 
THEN 35060 
35600 POKE 205,2 
35620 IF PEEK <207)00 
THEN 35620 
35640 POKE 204, 1 
35660 POKE 211.CS: 

POKE 214,C Z 
35670 IF CC=0 

THEN RETURN 

35680 GET #1,G*: 

IF G$=CHR*<13) 

THEN IN*=LEFT$<IN*+" ",IL>: 

RETURN 

35682 IN$=IN$+G* 

35684 IF LEN(IN$> <IL 
THEN 35680 
35690 RETURN 

36000 POKE 205,2 
36020 IF PEEK <207)00 
THEN 36020 
36040 PRINT G$? : 

IF PEEK <211)>MS 
THEN MS=PEEK <211)—CS 
36060 RETURN 
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How do you use this program? 

Suppose you want to enter an item number for an 
inventory. This number must be exactly six digits long and 
consist of numeric characters only. 

We would program the following to accomplish this: 

10 OPEN 1,3 

100 IL=6:MN=0:ML=0 

110 PRINT"PART NUMBER ”;:GOSUB35000 
120 IN=VAL(INS) 

The desired part number is now at your disposal in IN 
and you can be sure that is exactly six digits long and that 
it contains only numerical digits. 

Along with the previously entered item number you also 
need the description of the part. Since you have set up a 
file with records of a predetermined length, this 
description may be no longer than a certain value, say 10 
characters. This is the maximum length; it is not 
obligatory. 
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The appropriate program lines look like this: 

200 IL=10:MN=1:ML=1 

210 PRINT”DESCRIPTION ";:GOSUB35000 

The description is now contained in INS and, if less 
than 10 characters long, padded with blanks at the end. 

The price is also important of course. It has a 
variable length, up to, say, eight characters and is 
strictly numeric. 

300 IL=8:MN=0:MI.=1 

310 PRINT"PRICE ";:GOSUB35000 

320 IN=VAL(IN$) 

The number, consisting of a maximum of eight digits, is 
now in IN and you can proceed with the input of the quantity 
and so on. 

We hope that this small routine takes care of the 
problems you may have had with syntactically incorrect data 
input. Feel free to make use of the special features used in 
the subroutine in regard to the cursor positioning and the 
input from the screen (GET#1) in your own programs. 
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3.7 A "mouse" for the CBM 64 


A new buzz word has infiltrated the world of personal 
computers: the "MOUSE" 

What is behind this intriguing expression? 

You are probably acquainted with devices called track 
balls on video games. A track ball is a pointing or control 
device used instead of joysticks or paddles to move figures 
around on the screen. 

In contrast to joysticks whose handles can be moved in 
one of only eight directions, the track ball allows rotation 
in all directions since it employs a free-moving ball 
without axes, whose movement is converted into two angles 
for the X and Y axes. On video games this ball is operated 
with the palm. 

The "mouse" consists of such a ball built into the 
underside of a housing about the size of a package of 
cigarettes, which one lays, ball down, on the table and 
rolls back and forth with the hand. 

Through the movement of this box on the table the ball 
is in turn set in motion by the friction against the table 
surface. The coordinates of the device are transmitted to 
the computer via a special interface. 

How does one make serious use of a mouse? 

If a program intended for a large range of users is 
supposed to bear the title "user-friendly," it will in all 
probability be designed using what is called the menu 
technique. This procedure has the advantage that it can 
easily be understood and used by almost anyone. The user can 
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select the desired function either directly or through a 
succession of choices, each more specific than the last and 
all presented to him on the screen. 

The choice is made either by entering a number or 
letter corresponding to an option on the screen or by moving 
the cursor to the desired point on the screen. 

Experts in ergonomics have discovered that the 
operations involved in making a choice can be accomplished 
more comfortably and more certainly when one does not have 
to search for the appropriate key on the keyboard but rather 
when one is resting comfortably in an easy chair. With the 
mouse, the movements of the cursor on the screen correspond 
directly to those of the device on the table. Reaching the 
desired field is signaled by pressing a button on top of the 
mouse. 

In order to give you the opportunity to experiment with 
this charming little animal without requiring the purchase 
of an expensive track ball, we have developed the following 
program which works with the conventional joystick in 
control port 2 of your Commodore 64. 

Naturally, this will not allow the same ease of use as 
the real mouse, but the experimentation with the principle 
of the thing will answer for our purpose. 

In keeping with our usual style, we first present the 
variables and memory locations used and then discuss the 
program in detail. 
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First the variables: 

R0$ character for reverse on 
RF$ character for reverse off 
A$ character entered 

B$ after RETURN contains all the previously entered 
characters 

A two-dimensional variable field which contains the ASCII 
values for each of the characters on the first four 
lines of the video display. 

DR original value of the data direction register in 56322. 
This value must be POKEd back into this location at the 
end of the program. 

J position of the joystick in control port 2 

JS joystick column 

JZ joystick line 

PS column position for PRINT 

PZ line position for PRINT 

S column of the joystick cursor for indexing of A(X,Y) 

Z as above, but line 

Memory locations: 

56322 data direction register for control port 2 
58643 kernal routine for determining cursor position 
58636 kernal routine for positioning the cursor 

781 contents of processor register X, loaded from here by 
the SYS command and placed back when the routine ends 

782 as above, but for the Y register 

204 =0 cursor on 
=1 cursor off 

205 counter for flash frequency of cursor 
207 =0 cursor in OFF phase 
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<>0 cursor in ON phase 

Step-by-step description of the program: 

1 Because the control ports and the keyboard use 
the same peripheral interfaces in the C64, the 
keyboard is turned off here. At the end of your 
program the value in DR must be poked back into 
56322 or the computer will not respond to the 
keyboard. Only STOP/RESTORE will get you out of 
our example program. 

10-50 The menu field is constructed on the screen. 

60-560 The array is filled with the ASCII values of the 
characters in the first four lines of the 
display. When this array is indexed by the line 
and column positions, it returns the value of 
the character at that screen position. 

680 The character produced by the subroutine at 5000 
is displayed on the screen. 

700 The cursor position resulting from the PRINT is 
saved because the menu field will be 
reconstructed in line 720. This is necessary 
because the lines scroll up when the screen is 
full and the field may be destroyed. 

760 The cursor, displaced by the reconstruction of 
the field, is returned to its original position. 

780 If the last character was RETURN, the input of a 
line is terminated. If you wish to perform 
further operations on the data, you should take 
the data out of B$, 

800 otherwise the entered character is appended to 
B$. 
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5020-5140 

5160 

5170 

6180-5340 


6010-6160 


The cursor is saved and turned off, set to 
position 0, and turned on again. 

The value obtained form the joystick on control 
port 2 is put into J. 

Delay loop—makes the cursor easier to control. 
The cursor is moved according to the position of 
the joystick. 

If the joystick button was pressed (5260), the 
character under the cursor (at 6010) is put into 
A$. 

The array A(X,Y) is addressed with the cursor 
position of the joystick and the resulting value 
is placed in A$ (6060). 

Because the C64 has a double-line organization, 
that is, the column counter can go up to 80 
positions although the screen is only 40 columns 
wide, the column value is corrected for properly 
indexing the array in line 6050. 


This program is quite simple to use. After typing RUN, 
the cursor appears in the upper left-hand corner of the 
display. You can move it about with a joystick plugged into 
control port 2. When you come to a character that you would 
like to put in B$, simply press the fire button on the 
joystick to do so. As acknowledgment, the chosen character 
appears several lines down. Now you can go on to the next 
character. 

After selecting RETURN, the line is complete in B$ and 
you can process it as desired. 

We hope that you have fun with this program and that it 
encourages you to try similar ideas of your own. 
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The program listing: 


1 DR=PEEK<56322): 

POKE 56322,224: 

RO*=CHR* <18): 

RF*=EHR*<146) 

5 PRINT CHR$ <147): 

GOSUB 10: 

GOTO 60 

10 PRINT CHR$(19)" , / 0123456789 

" 5 

20 PRINT " 0ABCDEFBHIJKL "j 

30 PRINT " MNOPQRSTUVWXYZ "5 

40 PRINT " "RO*"RET ,, RFV "RO* , 'DEL"RF*" ‘'R0*"F1 "RF$" "R 
0*"F3"RF*" "RQ$"F5"RF* 5 
45 PRINT " "R0$"F7"RF*" 

50 RETURN 

60 DIM A(4,40) 

100 FOR 1=0 TO 13 

120 A<0,1*2+1)=1+44 

140 NEXT I 

180 FOR 1=0 TO 12 

200 A<1,1*2+2)=1+64 

220 NEXT I 

260 FOR 1=0 TO 13 

280 A(2,I*2+l)=I+77 

300 NEXT I 

340 FOR 1=1 TO 3 

360 A(3,I)=13 

380 NEXT I 

420 FOR 1=5 TO 7 

440 A<3,I)=20 

460 NEXT I 

500 FOR 1=0 TO 3 

520 A(3,I*2+9 > =I +133 

560 NEXT I 

580 PRINT : 

PRINT 
600 B*="": 

X=FRE <0> 

640 GOSUB 5000: 

REM GET CHARACTER 
680 PRINT A*5 
700 SYS 58643: 

F'Z=PEEK (211) : 

PS=PEEK(214) 

720 GOSUB 10 
760 POKE 211.PZ: 

POKE 214,PS: 

REM SYS58636 
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780 IF ASC (A$)=13 
THEN 600 
BOO Ert=EM*+A* 

820 GOTO 640 

5000 REM 

5001 REM ***** READ JOYSTICK ***** 

5002 REM 

5020 SYS 58643: 

REM SAVE PRINT-CURSOR 
5060 PZ=PEEK <781): 

PS=PEEK(782) 

5070 POKE 205,3 
5080 IF PEEK(207) 

THEN 5080 
5090 POKE 204,1 
5100 POKE 781,Z: 

POKE 782,S: 

jz=z: 

JS=S 

5120 SYS 58636: 

REM SET JOYSTICK CURSOR 
5140 POKE 204,0: 

REM TURN CURSOR ON 
5160 J=PEEK(56320): 

REM READ JOYSTICK 
5170 FOR 1=0 TO 30: 

NEXT I 

5180 IF (J AND 1> =0 
THEN JZ=JZ-1 
5200 IF (J AND 2>=0 
THEN JZ=JZ+1 
5220 IF (J/4)=0 

THEN JS=JS-1 
5240 IF (J AND 8>=0 
THEN JS=JS+1 
5260 IF (J AND 16)=0 
THEN 6000 

5280 IF JZ<0 

THEN JZ=0 

5281 IF JS<0 

THEN JS=Q 

5282 IF JS>30 

THEN JS=30 

5283 IF JZ >3 

THEN JZ=3 
5285 POKE 205,3 
5290 IF PEEK(207) 

THEN 5290 
5295 POKE 204,1 
5300 POKE 781,JZ: 

POKE 782.JS: 

SYS 58636 
5340 GOTO 5140 
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6000 REM 

6001 REM ***** BET ascii VALUE OF CHARACTER ***** 

6002 REM 

6010 POKE 205,3 
6015 IF PEEK(207) 

THEN 6015 
6017 POKE 204, 1 
6020 SYS 58643: 

REM BET CURSOR POSITION 
6040 Z=PEEK.<781> 

S=PEEK(782) 

6050 IF S>39 

THEN S=S-40 
6060 A*=CHR$(A(Z,S)) 

6100 POKE 781,PZ: 

POKE 782,PS 
6120 SYS 58636: 

REM LOAD PRINT POSITION 
6160 RETURN 
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Chapter 4 Advanced BASIC 


4.1 Creating a BASIC line in BASIC 

Have you ever tried to write a universal computer 
program? By universal we mean a program which can be 
executed with any desired arithmetic operations with any 
variables or constants." 

Of course not, you will answer. The operation of a 
program depends on the previously entered algorithms. This 
is true, but imagine for a moment that you want to write a 
word processor that allows calculations. Within the text 
are numeric fields on which the mathematical operations are 
to be performed. Such a program might combine the features 
of a word processor with those of a spread-sheet program. 

You could write a version of this program that was set 
up to do only certain calculations, such as balancing a 
checkbook or something similar. It could not perform 
general calculations for which it was not specifically 
designed, however. To perform other operations, a new 
version of the program would have to be written. It would 
be more practical to have a version which would allow any 
calculations to be performed. 

This is what we want to present to you, a procedure 
which allows you to specify the variables on which 
arithmetic operations are to be performed and what 
operations are to be executed while the program is RUNning. 

This is only possible if we can generate a BASIC line 
containing the desired formula within the executing program. 
We will show you how this can be done. 

The following program contains a machine language 
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subroutine, but this will be handled entirely from BASIC. 
Before we discuss the individual program steps, we first 
present the variables and memory addresses used. 

First the variables: 

TM Contains the last address in memory 

VL Least-significant byte of the address "variable start" 

VH As above, but most-significant byte 

VT As above, but total value 

BU Address of the line input buffer 

BC Index variable for filling the buffer 

CA$ Variable containing the calculation 

RE Contains the result after executing the routine 

The memory locations used: 

45-46 Pointer to the start of the variable table 

47-48 Pointer to the start of the arrays 

49-50 Pointer to the start of the strings 

56 Most-significant byte of the pointer to the end of 

BASIC RAM 

40448 The created BASIC line 50100 is placed here. 

40704 Address of the routine which creates a BASIC line from 
the contents of the input buffer and puts it in 40448 


Step-by-step description of the program operation: 

1 The top-of-memory is set to 40448. Memory above this 
point will be used for the machine language routine 
and later for the created BASIC line. 
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2-6 The pointer for the start of the variable table is 
raised because the connecting line 50099 will be 
inserted here. 

10-14 lines 50100 and 50110 are established so that these 
are available at all times in case a jump is made to 
them without having previously placed an operation 
there. The lines contain PRINT and RETURN. 

20-30 The connecting line 50099 is placed at the end of the 
BASIC program. The continuation address of this line 
points to the line 50100 at address 40449. 

32-50 These lines contain the machine language program which 
will be examined in greater detail later. 

60-70 The machine language program is placed in memory at 
40704. 

50040 The BASIC line is read in from the keyboard into CAS. 
Make sure that only functions are entered. 

50050 The input is taken from CAS and placed in the line 
input buffer (up to 50075). 

50080 The machine language program to create the line is 
called. 

50095 Here the created calculation is called. The result 
will be returned in RE. 

For those who are interested, here is the machine language 

program: 

LDA S7A save BASIC pointer 

STA S9FFF 

LDA S7B 

STA S9FFE 

LDA $14 

STA S9FFD 

LDA $15 
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STA $9FFC 
LDA #$0B 
STA $7A 
JSR $A579 
LDX #0 

XX LDA $0200,X 
BEQ YY 
STA $9E05,X 
INX 

BNE XX 

YY LDA #$3A 

STA $9E05,X 
LDA #$8E 
STA $9E06,X 
LDA #0 
STA $9E07,X 
STA $9E08,X 
STA $9E09,X 
LDA $9FFF 
STA $7A 
LDA $9FFE 
STA $7B 
LDA $9FFD 
STA $14 
LDA $9FFC 
STA $15 
RTS 


offset to input buffer 

call the routine "CRUNCH” 

transfer line to 40453 
jump out when done 

behind the line 

append a RETURN 

mark the end-of-line 

reload BASIC pointer 


back to BASIC 


The program listed below consists of two parts: 

The first part from line 1 to 70 need be executed only 
once, at the beginning of the program. It is important that 
these lines also be used at the beginning of your program 
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and not be moved to other line numbers, otherwise your 
variables will be destroyed in lines 1 and 6. 

The second part of the program makes a BASIC line out 
of the formula entered in CA$ and executes this. The result 
is returned in RE. 

The line numbers of the program in which these routines 
are placed may not exceed 49999. The lines at 50000 must 
absolutely be the last in the program. 


The only restriction when using these routines is that 
you must only enter functions, though these may be of any 
type, such as 75/2*Vl-V2+SQR(V3). The assignment of the 
result to RE is already done in line 50050. 


WARNING! Once the program has been started, it may not be 
changed. You should enter NEW, reload the program, and then 
change it. This is necessary because the created lines are 
not placed directly behind the BASIC program but high in 
memory. As a result, the computer may crash if you try to 
edit, insert, or delete a line. 


Here is the program listing: 


1 POKE 56.158: 

CLR 

2 IF PEEK < 45)+2 >255 

THEN POKE 45,2-(256-PEEK(45)i: 
POKE 46,PEEK(46)+1: 

BOTO 6 

4 POKE 45,PEEK(45)+2 

6 POKE 47,PEEK(45): 

POKE 48,PEEK(46): 

POKE 49,PEEK(45): 

POKE (50),PEEK(46) 

8 TM=4044B 

10 POKE TM.O: 

POKE TM+j.,7: 

POKE TM+2.158: 

POKE TM+3,ISO: 

POKE m+4' 195 
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12 


14 


20 


30 


32 


34 

36 

40 

50 

60 

70 


50000 

50040 

50050 


50060 

50070 

50073 

50075 


50080 

50095 

50097 


POKE TM+5,153: 

POKE TM+6,0: 

POKE TM+7,13: 

POKE TM+8,158: 

POKE TM+9,190 
POKE TM+10,195: 

POKE TM+11,142: 

POKE TM+12,0: 

POKE TM+13,0: 

POKE TM+14,0 
VL=PEEK(45): 

VH=PEEK(46): 

VT=VH*256+VL 
POKE VT-4,1: 

POKE VT-3,158: 

POKE VT-2,179: 

POKE VT-1,195 

DATA 165,122,141,255,159,165,123,141,254.159,165,2 
0,141,253,159,165,21 

DATA 141,252,159,169,11,133,122,32,121,165 

DATA 162,0,189,0,2,240,6,157,5,158,232.208,245,169 

,58,157,5,158 

DATA 169,142,157,6,158,169,0,157,7,158,157,8,158,1 
57,9,158 

DATA 173,255,159,133,122,173,254,159 

DATA 133,123,173,253,159,133,20,173,252,159,133,21 

,96 

FOR 1=40704 TO 40785 
READ MC: 

POKE I,MC: 

NEXT I 

REM CALCULATOR ****■***■#■■***** 

BU=523: 

INPUT "CALC";CAS 
POKE BU,ABC <"R") : 

POKE BU+1,ASC <"E"): 

POKE BU+2,ASC(“="): 

BU=BU+2 

FOR 1 = 1 TO LEN <CAS> 

POKE BU+I,ASC <MIDS(CAS,1,1)): 

NEXT I 

BC=LEN(CAS)+1 
POKE BU+BC,0: 

POKE BU+BC+1,0: 

POKE BU+BC+2,0 
SYS 40704 
80SUB 50100 
RETURN 
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In closing, we have one sore suggestion which we would 
like to present to you. 

Assume for one moment that you have found a procedure 
which will create the BASIC program line necessary to solve 
a specially formulated problem. Furthermore, this procedure 
is so universal that from a set of tasks it will create a 
corresponding set of program lines, including loops and 
jumps. 

The only remaining problem is to place all of these 
lines in memory one after the other. The procedure we have 
described in this section can create only a single program 
line, but it can be expanded so that it can be used for 
several lines. 

It should be noted that the machine language program 
does not always transfer the created line to the same point 
in memory but to a address depending on the length of the 
previously created line. In addition, the continuation 
pointer (the first two bytes at the beginning of the line) 
must be taken care of, something we omitted in our example 
because the return command was placed directly within the 
created line. 

Perhaps you will use this suggestion to write a truly 
universal program generator, since such a thing is possible 
in principle. Program generators are programs which are 
given a specific task of a particular kind and then create a 
program in a given programming language (it need not be 
BASIC). 
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4.2 Copying the BASIC interpreter into RAH 


One of the advantages that the Commodore 64 has over 
the other Commodore computers is that the entire address 
space of the processor—64 kilobytes—is equipped with RAM. 
This presents us with some interesting possibilities such as 
providing the 64 with a completely new operating system and 
a new BASIC interpreter. You need only load the new or 
modified kernel or BASIC interpreter into RAM and then tell 
the computer to switch off the ROM and activate the 
corresponding RAM. This can be accomplished with POKE 
commands. 

If you do not want to load an entirely new BASIC but 
only wish to change certain characteristics, such as 
implementing your own functions or modifications to existing 
functions or commands, you would simply copy the BASIC 
interpreter into RAM, execute the modifications there and 
then switch to RAM. 

A short discussion of the Commodore 64’s memory 
management will help explain this process. When the 
computer is turned on, the kernal ROM and the BASIC ROM are 
switched on and executed. When you read from this area of 
memory with a PEEK command, you receive the value from the 
ROM (see section 9.5 for information on how to read the 
RAM). If you write to this area with POKE, you will always 
write to RAM, regardless of whether it is selected or not. 
We can make use of this feature to copy the entire kernal or 
BASIC ROM into the underlying RAM in order to manipulate it 
for our purposes. The copying can be done with a BASIC loop. 


- 81 



Tricks fc Tips 


FOR I=B TO K : POKE I, PEEK(I) : NEXT 

B is the beginning address and E the end address. For BASIC 
these addresses are 40960 ($A000) and 49151 ($BFFF); the 
kernal lies from 57344 ($E000) to 65535 ($FFFF). 

This POKE loop copies the contents of the ROM into the 
underlying RAM. BASIC continues to run in ROM, however. He 
must tell the computer to switch over to the HAM. 

Memory location 1, the processor port, is used for this 
purpose. Normally this location contains the value 55. If 
you want to run BASIC in RAM, you must select the RAM with 
POKE 1,54. Note: You may only execute this POKE after you 
have copied BASIC from 40960 to 49151 into RAM or the 
computer will "crash." If you also want to copy the kernal 
to RAM, this must be done together with the BASIC ROM 
because the selection of this RAM automatically selects the 
RAM under the BASIC ROM as well (see section 2.6). The POKE 
command to make this switch is POKE 1,53. If you want to 
manipulate the BASIC interpreter, first copy the ROM, make 
the desired changes, and then save the program with which 

you made the changes and switch over with POKE 1. If you 

have made an error your computer may "hang up" and you must 
start over from the beginning. Reload your program, correct 
the error and run it again until it works as desired. 
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4.3 No nore negative nuabers with the FHB function 


Have you ever found it surprising that when turn on 
your Commodore 64 it announces that it has 38911 bytes free 
but when you issue the command 

PRINT FRE(O) 

it responds with -26627? 

If one receives a negative number, one must add 2 to 
the 16th power (or 65536) to the value in order to get the 
proper (positive) value. This is not overly difficult but it 
is inconvenient. What is the cause of this? 

We must examine the corresponding locations in the ROM 
listing to determine the answer (address $B37D: The Anatomy 
of the Commodore 64). There, after the strings which are no 
longer needed are removed and their memory locations made 
free (garbage collection), the free memory area is 
calculated: The start of the strings ($33/$34) minus the end 
of the arrays ($31/$32). This 16-bit integer is converted 
into floating-point format and returned. Here is the error. 
The integer value is treated as a signed number just like 
the integer variables (SS), which can only contain values 
from -32768 to 32767. If these numbers were treated as 
positive values, they could contain values in the range 0 to 
65535. With the earlier Commodore computers there was never 
more than 32767 bytes of memory free so that this error was 
never encountered. We must therefore change the FRE routine 
so that the conversion to a floating-point number treats the 
integer as a positive value. This is the case with line 
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numbers which may also be larger than 32767. 

These are the changes which are necessary. Here we have 
placed the additional code in an unused area of the BASIC 
interpreter. 


B38D 

4C 

55 

BF 

JMP 

$BF55 

B390 

BA 



NOP 


BF55 

A5 

34 


LDA 

$34 

BF57 

E5 

32 


SBC 

$32 

BF59 

A2 

00 


IDX 

#$00 

BF5B 

86 

0D 


STX 

$0D 

BF5D 

85 

62 


STA 

$62 

BF5F 

84 

63 


STY 

$63 

BF61 

A2 

90 


LDX 

#$90 

BF63 

4C 

49 

BC 

JMP 

$BC49 


The changes can be made with a small POKE loop. 

100 FOR 1=40960 TO 49151 

110 POKE I, PEEK(I) : NEXT 

120 A=11*4096+3*256+8*16+13 

130 FOR I=A TO A+3 

140 READ X : POKE I,X : NEXT 

150 A=11*4096+15*256+5*16+5 

160 FOR I=A TO A+16 

170 READ X : POKE I,X : NEXT 

180 POKE 1,54 

200 DATA 76,85,191,234 

210 DATA 165,52,229,50,162,0,134,13,133,98,132,99 
220 DATA 162,144,76,73,188 
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4.4 Returning to a BASIC program after a LIST command 


When one puts a LIST command within a BASIC program, 
execution always returns to the command mode after the LIST 
command is carried out. This is inconvenient when you want 
to output certain lines such as those which contain function 
definitions using DEF FN. You are also prohibited from 
outputting more than one copy of a program listing, even 
from a loop in the direct mode, such as: 

FOR 1=1 TO 2 : LIST : NEXT 

The remedy to this problem is as follows: Place a jump 
to the BASIC warm-start at the end of the LIST function by 
means of a return command. In addition, the pointer to the 
program text must be saved before calling the LIST function 
because this will be changed during the LIST. 

We need a small routine which carries out these tasks 
and jumps back to the BASIC interpreter. Since this requires 
a machine language program in any case, we will include the 
code to copy the BASIC ROM into RAM. This way we avoid the 
slow BASIC POKE loop. 

We have placed this routine in the cassette buffer. 
After entering or loading, it is executed with SYS 828 and 
immediately allows the use of the LIST command without 
program interruption. 
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0001 

033C 





ORG 

828 

;CASSETTE BUF 

FER 









0002 

033C 




CHRPTR 

EQU 

*7A 

5 PROGRAM F'OIN 

TER 









0003 

033C 




CHRGOT 

EQU 

*79 

j GET LAST CHA 

RACTER 








0004 

033C 




LIST 

EQU 

*A69C 

3 LIST ROUTINE 

0005 

033C 




LSTVEC 

EQU 

*A042 

3 POINTER TO L 

1ST ROUTINE 







0006 

033C 




NEXTST 

EQU 

*A8F8 

5 SET PROGRAM 

POINTER 








0007 

033C 







; TO NEXT STAT 

EMENT 








0008 

033C 




CRLF 

EQU 

*AAD7 

3 OUTPUT CR 

0009 

c 

033C 

A2 

20 



LDX 

#32 

5 COPY 32 PAGE 

o 

0010 

033E 

A9 

AO 



LDA 

#*A0 

5 POINTER TO S 

TART 

OF BASIC 






0011 

0340 

AO 

00 



LDY 

#0 


0012 

0342 

84 

22 



STY 

*22 


0013 

0344 

85 

23 



STA 

*23 


0014 

Ci 

0346 

B1 

22 


LOOP 

LDA 

<*22>,Y 

5 TRANSFER LOO 

r 

0015 

0348 

91 

22 



STA 

<*22>,Y 


0016 

034A 

C8 




I NY 



0017 

034B 

DO 

F9 



BNE 

LOOP 


0018 

034D 

E6 

23 



INC 

*23 


0019 

034F 

CA 




DEX 



0020 

0350 

DO 

F4 



BNE 

LOOP 


0021 

0352 

A9 

60 



LDA 

#*60 

;RTS CODE 

0022 

0354 

8D 

14 

A7 


STA 

*A714 


0023 

0357 

A9 

EA 



LDA 

#*EA 

3 NOP CODE 

0024 

0359 

8D 

BB 

A6 


STA 

*A6BB 


0025 

035C 

8D 

BC 

A6 


STA 

*A6BC 


0026 

035F 

A9 

6D 



LDA 

#*6D 

5 POINTER TO N 

EW LIST FUNCTION 





0027 

0361 

8D 

42 

AO 


STA 

LSTVEC 


0028 

0364 

A9 

03 



LDA 

#*03 


0029 

0366 

8D 

43 

AO 


STA 

LSTVEC+1 


0030 

M 

0369 

A9 

36 



LDA 

#*36 

5 SWITCH TO RA 

I 1 

0031 

036B 

85 

01 



STA 

1 


0032 

036D 

60 




RTS 



0033 

036E 

A5 

7A 


NEWLST 

LDA 

CHRPTR 


0034 

0370 

48 




PHA 


5 SAVE PROGRAM 

POINTER 








0035 

0371 

A5 

7B 



LDA 

CHRPTR+1 


0036 

0373 

48 




PHA 



0037 

0374 

20 

79 

00 


JSR 

CHRGOT 

5 GET LAST CHA 

RACTER 








0038 

0377 

20 

9C 

A6 


JSR 

LIST 

JEXECUTE LIST 

0039 

037A 

20 

D7 

AA 


JSR 

CRLF 

3 OUTPUT CR 

0040 

037D 

68 




PLA 



0041 

037E 

85 

7B 



STA 

CHRF'TR+1 


0042 

0380 

68 




PLA 


j GET PROGRAM 

POINTER BACK 












- 
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0043 0381 85 7 A 
0044 0383 20 F8 A8 
EXT STATEMENT 
0045 0386 4C 79 00 
RACTER 

Here is the loader program in BASIC. 


100 FOR 1=828 TO 904 
110 READ X: 

POKE I,X: 

S=S+X: 

NEXT 

120 DATA 162,32,169,160,160,0,132,34,133,35,177,34 
130 DATA 145,34,200,208,249,230,35,202,208,244,169,96 
140 DATA 141,20,167,169,234,141,187,166,141,188,166,169 
150 DATA 109,141,66,160,169,3,141,67,160,169,54,133 
160 DATA 1,96,165,122,72,165,123,72,32,121,0,32 
170 DATA 156,166,32,215,170,104,133,123,104,133,122,32 
180 DATA 248,168,76,121,0 
190 IF S09613 

THEN PRINT "ERROR IN DATA!!": 

END 

200 PRINT "OK" 


If you run the following BASIC program before and after the 
SYS 828, you can see the difference. 


100 PRINT "LIST-TEST" 
110 LIST 120 
120 GOTO 100 


STA CHRPTR 

JSR NEXTST 5 POINTER TO N 

JMP CHRBOT SSET LAST CHA 


87 



Tricks & Tips 


4.5 Calculated line numbers with GOTO, GOSUB, and RBSTORB 


Whenever you want to make a program branch or call a 
subroutine, you must know the exact line number of the point 
you wish to call. In some cases, it would make programming 
easier if the line number could ..be calculated while the 
program is running, such as the following program assumes. 

100 PRINT "LINE NUMBER ";L 
110 GOTO L 


This could be done with an extensive set of ON ... GOTO 
statements, and the same applies to the GOSUB command, but 
it would be much easier if calculated line numbers were 
allowed. 

Another useful extension would be to allow a line 
number in the RESTORE command. If one has several different 
blocks of data which are to be read several times, one can 
only reset the READ/DATA pointer to the beginning of the 
data and then read over a quantity of unwanted data until 
the desired data are reached. RESTORE with a line number 
allows the data pointer to be set to any desired line. 

The modification of the GOTO command can be 
accomplished with a few POKEs. We need only replace the call 
to get the line number with a routine that will get and 
evaluate a numeric expression. In doing so we also change 
the GOSUB routine, since GOSUB calls the GOTO routine. 
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A8A0 

20 CO 02 

JSR 

$02C0 

02C0 

20 8A AD 

J SR 

$AD8A 

02C3 

4C F7 B7 

JMP 

$B7F7 

we 

have placed 

the 

additional code at $02C0 (704) 


which is free so long as sprite 11 is not used. 


The following BASIC program will place the code in memory: 

100 FOR 1=40960 TO 49151 
110 POKE I, PEEK(I) : NEXT 
120 A=10*4096+8*256+10*16 
130 FOR I=A TO A+2 
140 RBAD X : POKE I,X : NEXT 
150 A=704 

160 FOR I=A TO A+5 

170 READ X : POKE I,X : NEXT 

200 DATA 32,192,2 

210 DATA 32,138,173,76,247,183 

Now we have taken care of the GOTO and GOSUB commands. 
The RESTORE command is somewhat more complicated because 
there is normally no line number associated with it. We must 
distinguish between a plain RESTORE command and a RESTORE 
command with a line number. As it turns out, this is not 
difficult. 


02C6 

DO 

03 


BNE 

$02C8 

;additional characters? 

02C8 

4C 

ID 

A8 

JMP 

SA81D 

;to old RESTORE command 

02CB 

20 

CO 

02 

JSR 

$02C0 

; get line number 

02CB 

20 

13 

A6 

JSR 

$ A613 

{calculate address of the 


line number 
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02DX 38 
02D2 AS SF 
0204 E9 01 
0206 A4 60 
02D8 4C 24 A8 


SEC 

I>DA $5F 
SBC #$01 
LDY $60 
JMP $A824 


;address low 
{subtract one 
{address high 

{continue as per old RESTORB 


Again, we can place the code in memory with a small BASIC 
program: 


300 A=2*256+12*16+6 

310 FOR I=A TO A+20 

320 READ X : POKE I,X : NEXT 

330 DATA 208,3,76,29,168,32,192,2,32,19,166 

340 DATA 56,165,95,233,1,164,96,76,36,168 


Now we must tell the interpreter where the new RBSTORE 
routine is located. Add these lines to the others above: 


400 POKE 40996, 197 : POKE 40997, 2 
410 POKE 1,54 

line 410 switches over to the RAH. You can now use the 
RESTORE command in three different ways: 

First, without the line number, as before, second with 
a line number, or third, with an expression which will yield 
a line number once evaluated. If a line number is specified, 
the next READ command will read the first DATA element on 
the line specified. If this line does not exist, no error 
message will be given and the pointer will be set to the 
next line. The following program structure is now possible. 
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100 GOTO 200 

200 RESTORE 10 

500 RESTORE 

800 GOSUB A#2+100 

900 RESTORE X*100+500 
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4.6 The MID$ command 


You are no doubt familiar with the MID$ function, a 
string function which isolates a part of an alphanumeric 
string. The following program fragment 

100 A$ = "TESTSTRING" 

110 BS = MID$(A$,5,3) 

120 PRINT B$ 

produces the output 

STR 

In this section we offer an enhancement of the MIDS 
function which allows not only extracting parts of a string 
but also assignments to parts of a string. With the new 
command the following type of programming is possible: 

100 AS = "TESTSTRING" 

110 MIDS (A$,5,3) = ”123” 

120 PRINT AS 

Here three characters at position five are replaced with the 
string "123"; the result is 

TEST123ING 

Without this new MID$ command, the string would have to be 
divided into two parts and then the parts recombined with 
the string to be inserted: 
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100 A$ = "TESTSTRING" 

110 A$ = LEFTS(A$,4) + ”123" + MID$(A$,7,3) 

120 PRINT A$ 

This command is very useful for replacing individual parts 
(fields) of a data record. To do this, one defines a string 
with length equal to the length of the data record and 
inserts the values of the individual fields with the new 
MID$ command. 


The command is again implemented through a small machine 
language program. 


0001 

033C 




5 MID$ AS A F'S 

EUDOVARIABLE 





0002 

033C 




5 

0003 

033C 




;MID$(STRINGV 

ARIABLE,POSITION,LENBTH) = 

STRINGEXF'RESSION 


0004 

033C 




il MID$ (STRINBV 

ARIABLE,POSITION) = 

STRING 

EXPRESSION 


0005 

033C 




; 

0006 

033C 

MIDCQD 

EQU 

$CA 


0007 

033C 

EXECUT 

EQU 

$308 

5 VECTOR FOR S 

TATEMENT EXECUTION 





000B 

033C 

CHRBET 

EQU 

$73 


0009 

033C 

CHRGOT 

EQU 

CHRGET+6 


0010 

033C 

EXECOL 

EQU 

$A7E7 


0011 

033C 

VARNAM 

EQU 

$45 


0012 

033C 

VARADR 

EQU 

$49 


0013 

033C 

DESCRP 

EQU 

$64 


0014 

033C 

TESTST 

EQU 

$AD8F 


0015 

033C 

GETVAR 

EQU 

$B08B 


0016 

033C 

SETSTR 

EQU 

$AA52 


0017 

033C 

CHKOPN 

EQU 

$AEFA 

i OF'EN PARENTH 

ESIS 

0018 

033C 

CHKCLO 

EQU 

$AEF7 

5 CLOSE PARENT 

HESIS 





0019 

033C 

CHKCOM 

EQU 

$AEFD 

;COMMA 

0020 

033C 

TEST 

EQU 

$AEFF 


0021 

033C 

GETBYT 

EQU 

$B79E 


0022 

033C 

FRMEVL 

EQU 

$AD9E 


0023 

033C 

ILLQUA 

EQU 

$B248 


0024 

0330 

FRESTR 

EQU 

$B6A3 


0025 

033C 

LENGTH 

EQU 

$03 


0026 

033C 

POSITN 

EQU 

$04 


0027 

033C 

VARSTR 

EQU 

$05 


0028 

033C 

EQUAL 

EQU 

$B2 
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0029 

033C 




P0INT2 

EQU 

$50 



0030 

033C 







s 


0031 

033C 





ORG 

828 



0032 

033C 

A9 

47 


INIT 

LDA 

#<MIDTES 



0033 

033E 

AO 

03 



LDY 

# >MIDTES 



0034 

0340 

8D 

08 

03 


STA 

EXECUT 



0035 

0343 

SC 

09 

03 


STY 

EXECUT+1 



0036 

0346 

60 




RTS 




0037 

0347 

20 

73 

00 

MIDTES 

JSR 

CHRGET 



0038 

0039 

034A 

C9 

CA 



CMP 

ttMIDCOD 

; CODE 

FOR MID 

034C 

FO 

06 



BEG! 

MIDSTR 

5 YES 


0040 

034E 

20 

79 

00 


JSR 

CHRGOT 



0041 

0351 

4C 

E7 

A7 


JMP 

EXECOL 

5 EXECUTE NORM 

AL STATEMENT 








0042 

0354 

20 

73 

00 

MIDSTR 

JSR 

CHRGET 

; NEXT 

CHARACT 

ER 

0043 

0357 

20 

FA 

AE 


JSR 

CHKOPN 

jOPEN 

F'AREN 

0044 

035A 

20 

BB 

BO 


JSR 

GETVAR 

5 GET 

VARIABLE 

0045 

035D 

85 

64 



STA 

DESCRP 



0046 

035F 

84 

65 



STY 

DESCRP+1 



0047 

0361 

85 

49 



STA 

VARADR 



0048 

0363 

84 

4A 



STY 

VARADR+1 



0049 

0365 

20 

A3 

B6 


JSR 

FRESTR 



0050 

0368 

AO 

00 



LDY 

#0 



0051 

036A 

B1 

64 



LDA 

<DESCRP),Y 



0052 

036C 

48 




PHA 


!LENGTH 

0053 

036D 

FO 

2E 



BE0 

ILL 



0054 

036F 

20 

52 

AA 


JSR 

SETSTR 

5 TRANSFER STR 

INS TO RAM 








0055 

0372 

AO 

01 



LDY 

#1 



0056 

0374 

B1 

49 



LDA 

(VARADR),Y 



0057 

0376 

85 

05 



STA 

VARSTR 

;SAVE 

VARIABL 

E ADDRESS 









0058 

0378 

C8 




I NY 




0059 

0379 

B1 

49 



LDA 

(VARADR),Y 



0060 

037B 

85 

06 



STA 

VARSTR+1 



0061 

037D 

20 

FD 

AE 


JSR 

CHKCOM 



0062 

0380 

20 

9E 

B7 


JSR 

SETBYT 

;get 

POSITION 

0063 

0383 

8A 




TXA 




0064 

0384 

FO 

17 



BE0 

ILL 



0065 

0386 

CA 




DEX 




0066 

0387 

86 

04 



STX 

F'OSITN 



0067 

0389 

20 

79 

00 


JSR 

CHRGOT 



0068 

038C 

C9 

29 



CMP 

#’ ) ’ 

;end 

OF EXPRE 

SSION? 









0069 

038E 

DO 

04 



BNE 

NEXT 



0070 

0390 

A9 

FF 



LDA 

#$FF 

UMAX. 

LENGTH 

0071 

0392 

DO 

OC 



BNE 

STORE 



0072 

0394 

20 

FD 

AE 

NEXT 

JSR 

CHKCOM 



0073 

0397 

20 

9E 

B7 


JSR 

SETBYT 

S GET 

LENGTH 

0074 

039A 

BA 




TXA 




0075 

039B 

DO 

03 



BNE 

STORE 



0076 

039D 

4C 

48 

B2 

ILL 

JMP 

ILLGUA 



0077 

03A0 

85 

03 


STORE 

STA 

LENGTH 
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0078 

03A2 

68 




F'LA 



0079 

03A3 

38 




SEC 



0080 

03A4 

E5 

04 



SBC 

POSITN 


0081 

03A6 

C5 

03 



CMP 

LENGTH 


0082 

03A8 

BO 

02 



BCS 

OK 


0083 

03AA 

85 

03 



STA 

LENGTH 


0084 

03AC 

20 

F7 

AE 

OK 

JSR 

CHKCLO 

SCLOSE PAREN 

0085 

03AF 

A9 

B2 



LDA 

#EBUAL 


0086 

03B1 

20 

FF 

AE 


JSR 

TEST 


0087 

03B4 

20 

9E 

AD 


JSR 

FRMEVL 

;GET EXPRESSI 

ON 









0088 

03B7 

20 

A3 

B6 


JSR 

FRESTR 


0089 

03BA 

AO 

02 



LDY 

#2 


0090 

03BC 

B1 

64 



LDA 

(DESCRP),Y 


0091 

03BE 

85 

51 



STA 

P0.INT2+1 


0092 

03C0 

88 




DEY 



0093 

03C1 

B1 

64 



LDA 

(DESCRP),Y 


0094 

03C3 

85 

50 



STA 

P0INT2 


0095 

03C5 

88 




DEY 



0096 

03C6 

B1 

64 



LDA 

(DESCRP),Y 


0097 

03C8 

FO 

D3 



BEQ 

ILL 

5ZERO, THEN E 

RROR 









0098 

03CA 

C5 

03 



CMP 

LENGTH 


0099 

03CC 

BO 

02 



BCS 

OKI 


0100 

03CE 

85 

03 



STA 

LENGTH 


0101 

03D0 

A5 

05 


OKI 

LDA 

VARSTR 


0102 

03D2 

18 




CLC 



0103 

03D3 

65 

04 



ADC 

POSITN 


0104 

03D5 

85 

05 



STA 

VARSTR 


0105 

OSD 7 

90 

04 



BCC 

LOOP 


0106 

03D9 

E6 

06 



INC 

VARSTR+1 


0107 

03DB 

A4 

03 



LDY 

LENGTH 


0108 

03DD 

88 



LOOP 

DEY 



0109 

03DE 

B1 

50 



LDA 

(P0INT2),Y 

SCHARACTER FR 

OH STRING 

EXPRESSION 




0110 

03E0 

91 

05 



STA 

(VARSTR),Y 

;TRANSFER TO 

STRING VARIABLE 






0111 

03E2 

CO 

00 



CRY 

#0 


0112 

03E4 

DO 

F7 



BNE 

LOOP 


0113 

03E6 

4C 

AE 

A7 


JMP 

$A7AE 

;TO INTERPRET 

ER LOOP 








ASSEHBLY COMPLETE. 
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After entering the program, initialize the command expansion 
by typing 

SYS 828 

The following BASIC loader program does the initialization 
automatically. 


100 
1 10 


120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


280 


FOR 1=828 TO lOOO 
READ X: 

POKE I,X: 

s=s+X: 

NEXT 

DATA 169,71,160,3,141,8,3,140,9,3,96,32 
DATA 115,0,201,202,240,6,32,121,0,76,231,167 
DATA 32,115,0,32,250,174,32,139,176,133,100,132 
DATA 101,133,73,132,74,32,163,182,160,0,177,100 
DATA 72,240,46,32,82,170.160,1,177,73,133,5 
DATA 200,177,73,133,6,32,253,174,32,158,183,138 
DATA 240,23,202,134,4,32,121,0,201,41,208,4 
DATA 169,255,208,12,32,253,174,32,158,183,138,208 
DATA 3,76,72,178,133,3,104,56,229,4,197,3 
DATA 176,2,133,3,32,247,174,169,178,32,255,174 
DATA 32,158,173,32,163,i82,160,2,177,100,133,81 
DATA 136,177,100,133,80,136,177,100,240,211,197,3 
DATA 176,2, 133,3,-165,5,24, 101,4, 133,5, 144 
DATA 2,230,6,164,3,136,177,80,145,5,192,0 
DATA 208,247,76,174,167 
IF SO 19273 

THEN PRINT "ERROR IN DATA!!": 

END 

SYS 828: 

PRINT "OK" 
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As an example and test of the new function, try 
program: 

100 DIN A$(10) 

110 FOR I = 1 TO 10 
120 A*(I) = "TESTSTRING" 

130 NEXT 

140 FOR I = 1 TO 10 

150 MID* (A*(I),1,1) = MID*("1234567890",1,1) 

160 NEXT 

170 FOR I = 1 TO 10 
180 PRINT A*(I) 

190 NEXT 

The output of the program is ten strings. In the 
string, the first character is replaced with a "1", 
second string the second character is replaced with a 
and so on: 


1ESTSTRING 

T2STSTRING 

TE3TSTRING 

TES4STRING 

TESTSTRING 

TESTS6RING 

TESTST7ING 

TESTSTR8NG 

TESTSTRI9G 

TESTSTRIN0 


this 


first 
in the 
” 2 ”, 
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4.7 INSTR and STRINGS functions 


Many other computers have two very useful string 
functions which the Commodore 64 lacks. The first function, 
usually called STRING$, creates a string of desired length 
filled with any given character. The second, often called 
INSTR, checks to see if a given string is contained within 
another. 

With a knowledge of the BASIC interpreter and the 
string management of the Commodore 64, it is possible to 
implement these functions on the 64 as well. We will use the 
existing command words "POS" and ”STR$" for these functions, 
differentiated from the current BASIC commands with a 
preceding "!". 

The INSTR function has the following syntax: 

1=!POS(A$,B$,P) 

A$ is the string to be searched, B$ is the string whose 
occurrence in A$ you wish to check for, and P is the 
position at which the search will start. The result is 
assigned to the variable I, and if zero, then the sought- 
after string was not found. If the second string was found 
in the first, I contains the position at which it was found. 
The input of the position P is optional; if it is not given, 
the search starts at the beginning of the string. 
Expressions or functions may be used in place of the 
variables. 
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Here are some examples of its use: 

PRINT !POS("ABCDEFGHIJK","D") 

4 

IF !POS(A$,”J") THEN PRINT "FOUND" 

A$ = "TBSTSTRING" 

PRINT !POS(A$,”T”) 

1 

X = !POS(A$,"T",5) : PRINT X 
6 


The STRING$ function is used as follows: 

A$ = !STR$(L,B) 
or 

A$ = !STR$(I,,B$) 

Here A$ is the string which we want to create. I is the 
length the string will have and B is the ASCII code of the 
character with which the string will be filled. If a string 
is used instead of B, the ASCII code of the first character 
of this string is used. The following examples demonstrate 
the use of the STRING$ function: 
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PRINT !STR$(20,65) 
AAAAAAAAAAAAAAAAAAAA 


A$ = !STR$(10,"*" ) : PRINT A$ 

********** 

The machine language program is placed in free memory 
begins at address 51200. 


0003 

CSOO 





ORB 

*CBOO 

0004 

C800 




CHKOPN 

EQU 

*AEFA 

0005 

CSOO 




CHKCLO 

EQU 

*AEF7 

0006 

C800 




CHKCOM 

EQU 

*AEFD 

0007 

CSOO 




FRMEVL 

EQU 

*AD9E 

0008 

CSOO 




CHKSTR 

EQU 

*AD8F 

0009 

C800 




FRESTR 

EQU 

*B6A3 

0010 

C800 




YFAC 

EQU 

*B3A2 

0011 

C800 




CHRGET 

EQU 

*73 

0012 

C800 




CHRSQT 

EQU 

CHRGET+6 

0013 

C800 




GETBYT 

EQU 

*B79B 

0014 

C800 




INTEGE 

EQU 

*B1 AA 

0015 

C800 




DESCRP 

EQU 

*64 

0016 

CSOO 




STRADR 

EQU 

*62 

0017 

CSOO 




ADDR2 

EQU 

*FB 

0018 

CSOO 




ADDR1 

EQU 

*FB+2 

0019 

C800 




LEN1 

EQU 

3 

0020 

CSOO 




LEN2 

EQU 

4 

0021 

C800 




NUMBER 

EQU 

5 

0022 

CSOO 




START 

EQU 

6 

0023 

CSOO 




TYF'FLG 

EQU 

13 

0024 

CSOO 




STRCOD 

EQU 

*C4 

0025 

CSOO 




ILLQUA 

EQU 

*B24S 

0026 

CSOO 




SYNTAX 

EQU 

*AF08 

0027 

CSOO 




POSCOD 

EQU 

*B9 

0028 

C800 




VECTOR 

EQU 

*30A 

0029 

CSOO 




TEMP 

EQU 

LEN1 

0030 

CSOO 

A9 

OB 



LDA 

#<TESTIN 

0031 

C802 

AO 

C8 



LDY 

# >TESTIN 

0032 

C804 

8D 

OA 

03 


STA 

VECTOR 

0033 

C807 

SC 

OB 

03 


STY 

VECTOR+1 

0034 

C80A 

60 




RTS 


0035 

C80B 

A9 

00 


TESTIN 

LDA 

#0 

0036 

C80D 

85 

OD 



STA 

TYPFLG 

0037 

CBOF 

20 

73 

00 


JSR 

CHRGET 

0038 

C812 

C9 

21 



CMP 

# •’ ! ’ 

0039 

CB14 

FO 

06 



BEQ 

TEST2 


and 
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0040 

C816 

20 

79 

00 


JSR 

CHRGQT 


0041 

C819 

40 

8D 

AE 


JMP 

*AEBD 


0042 

C81C 

20 

73 

00 

TEST2 

JSR 

CHRGET 


0043 

C81F 

09 

B9 



CMP 

#POSCOD 


0044 

C821 

FO 

OA 



BEQ 

INSTR 


0045 

C823 

09 

04 



CMP 

#STRCOD 


0046 

C825 

DO 

03 



BNE 

LB1 


0047 

C827 

40 

B1 

08 


JMP 

STRING 


0048 

C82A 

40 

08 

AF 

LB1 

JMP 

SYNTAX 


0049 

C82D 

20 

73 

00 

INSTR 

JSR 

CHRGET 


0050 

C830 

20 

FA 

AE 


JSR 

CHKOF'N 

SOPEN F'AREN 

0051 

C833 

20 

9E 

AD 


JSR 

FRMEVL 

5 GET EXPRESSI 

ON 









0052 

C836 

20 

8F 

AD 


JSR 

CHKSTR 

;TEST STRING 

0053 

CB39 

A5 

64 



LDA 

DESCRP 


0054 

C83B 

48 




PHA 


5 STRING ADDRE 

SS ON STACK 







0055 

C83C 

A5 

65 



LDA 

DESCRP+1 


0056 

C83E 

48 




PHA 



0057 

C83F 

20 

FD 

AE 


JSR 

CHKCOM 

5 COMMA 

0058 

f2 

CB42 

20 

9E 

AD 


JSR 

FRMEVL 

;SECOND STRIN 

O 

0059 

C845 

20 

A3 

B6 


JSR 

FRESTR 


0060 

C848 

FO 

64 



BEQ 

ILL 

; LENGTH=0 

0061 

C84A 

85 

04 



STA 

LEN2 


0062 

C84C 

86 

FB 



STX 

ADDR2 


0063 

C84E 

84 

FC 



STY 

ADDR2+1 


0064 

C850 

68 




PLA 



0065 

C851 

A8 




TAY 



0066 

C852 

68 




PLA 


5 FIRST STRING 

ADDRESS 








0067 

C853 

20 

AA 

B6 


JSR 

FRESTR+7 


0068 

C856 

FO 

56 



BEQ 

ILL 


0069 

0858 

85 

03 



STA 

LEN1 


0070 

C85A 

86 

FD 



STX 

ADDR1 


0071 

C85C 

84 

FE 



STY 

ADDR1+1 


0072 

C85E 

A2 

00 



LDX 

#0 

5 DEFAULT FOR 

THIRD PARAMETER 






0073 

C860 

20 

79 

00 


JSR 

CHRGOT 


0074 

CB63 

09 

20 



CMP 

#’ , ’ 


0075 

C865 

DO 

07 



BNE 

LI 


0076 

C867 

20 

9B 

B7 


JSR 

GETBYT 


0077 

C86A 

BA 




TXA 


;START POSITI 

ON 









0078 

C86B 

FO 

41 



BEQ 

ILL 


0079 

CB6D 

CA 




DEX 



0080 

C86E 

86 

06 


LI 

STX 

START 

5 START POSITI 

ON IN STRING 







0081 

C870 

20 

F7 

AE 


JSR 

CHKCLO 


0082 

CB73 

A5 

03 



LDA 

LEN1 


0083 

C875 

38 




SEC 


;LEN2>LEN1 

0084 

C876 

E5 

04 



SBC 

LEN2 


0085 

0878 

90 

28 



BCC 

END 

;RESULT 0? 

00B6 

087A 

69 

00 



ADC ao 
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0087 

c 

C87C 

85 

05 



STA 

NUMBER 

;OF THE SHIFT 

o 

0088 

C87E 

A5 

06 



LDA 

START 


0089 

C880 

18 




CLC 


5 ADDRESS 1 PL 

US START POSITION 





0090 

C881 

65 

FD 



ADC 

ADDR1 


0091 

C883 

85 

FD 



STA 

ADDR1 


0092 

C885 

90 

04 



BCC 

L3 


0093 

C887 

E6 

FE 



INC 

ADDR1+1 


0094 

C889 

AO 

00 


L2 

LDY 

#0 


0095 

C88B 

B1 

FB 


L3 

LDA 

<ADDR2),Y 


0096 

C88D 

D1 

FD 



CMP 

(ADDR1),Y 

5 COMPARE CHAR 

ACTERS 








0097 

C88F 

DO 

OB 



BNE 

L5 

S SEARCH AT NE 

XT POSITION 







0098 

C891 

C8 




INY 



0099 

C892 

C4 

04 



CPY 

LEN2 

5 ALL CHARACTE 

RS OF STRING2 TESTED? 




0100 

CB94 

90 

F5 



BCC 

L3 


0101 

C896 

A4 

06 



LDY 

START 


0102 

C898 

CB 




INY 



0103 

C899 

4C 

A2 

B3 

L4 

JMP 

YFAC 

5RESULT 

0104 

C89C 

E6 

06 


L5 

INC 

START 


0105 

C89E 

C6 

05 



DEC 

NUMBER 


0106 

CBAO 

DO 

04 



BNE 

L6 

SNOT DONE? 

0107 

C8A2 

AO 

00 


END 

LDY 

#0 

SNOT FOUND, Z 

ERO 









0108 

C8A4 

FO 

F3 



BEQ 

L4 


0109 

C8A6 

E6 

FD 


L6 

INC 

ADDR1 


0110 

C8A8 

DO 

DF 



BNE 

L2 

SINCREMENT ST 

RING2 ADDRESS 






0111 

C8AA 

E6 

FE 



INC 

ADDRi+i 


0112 

C8AC 

DO 

DB 



BNE 

L2 


0113 

C8AE 

4C 

48 

B2 

ILL 

JMP 

ILLQUA 


0114 

C8B1 







■ 

•I 

0115 

C8B1 







SSTRING* FUNC 

TION 









0116 

C8B1 







5 

0117 C8B1 

20 

73 

00 

STRING 

JSR 

CHRGET 


0118 

C8B4 

20 

FA 

AE 


JSR 

CHKOPN 

5 OPEN PAREN 

0119 

C8B7 

20 

9E 

B7 


JSR 

GETBYT+3 


0120 

C8BA 

8A 




TXA 



0121 

CBBB 

4B 




PHA 


S SAVE LENGTH 

0122 

C8BC 

20 

FD 

AE 


JSR 

CHKCOM 


0123 

C8BF 

20 

9E 

AD 


JSR 

FRMEVL 


0124 

C8C2 

24 

OD 



BIT 

TYPFLG 


0125 

C8C4 

30 

OC 



BMI 

STR 

5 STRING 

0126 

C8C6 

20 

AA 

B1 


JSR 

INTEGE 


0127 

CBC9 

A5 

64 



LDA 

DESCRP 

5 HIGH BYTE 

0128 

C8CB 

DO 

El 



BNE 

ILL 

5 >255 

0129 

C8CD 

A5 

65 



LDA 

DESCRP+1 

SLOW BYTE, LE 

NGTH 









0130 

C8CF 

4C 

DB 

CB 


JMP 

STR2 


0131 

C8D2 

20 

B2 

B7 

STR 

JSR 

*B782 

SSETSTR, TYPF 


LG TO NUMERIC 
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0132 

C8D5 

FO 

D7 



BEQ 

ILL 

5 LENGTH ZERO 

0133 

C8D7 

AO 

00 



LDY 

#0 


0134 

C8D9 

B1 

22 



LDA 

!$22),Y 

5 FIRST CHARAC 

TER 









0135 

C8DB 

85 

03 


STR2 

STA 

TEMP 


0136 

C8DD 

68 




PLA 


5 LENGTH 

0137 

C8DE 

20 

7D 

B4 


JSR 

$B47D 

;FRESTR 

0138 

CBE1 

AB 




TAY 



0139 

C8E2 

F0 

07 



BEQ 

STR3 


0140 

C8E4 

A5 

03 



LDA 

TEMP 


0141 

C8E6 

88 



LOOP 

DEY 



0142 

C8E7 

91 

62 



STA 

(STRADR),Y 

;CREATE STRIN 

0143 

C8E9 

DO 

FB 



BNE 

LOOP 


0144 

C8EB 

20 

CA 

B4 

STR3 

JSR 

$B4CA 

5PUT STRING I 

N DESCRIPTOR 

STACK 





0145 

C8EE 

4C 

F7 

AE 


JMP 

CHKCLO 



ASSEMBLY COMPLETE. 
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100 FOR 1=51200 TO 51440 
110 READ X: 

POKE I,XI 

s=s+x: 

NEXT 

120 DATA 169,11,160,200,141,10,3,140,11,3,96,169 
130 DATA 0,133,13,32,115,0,201,33,240,6,32,121 
140 DATA 0,76,141,174,32,115,0,201,185,240,10,201 
150 DATA 196,208,3,76,177,200,76,8,175,32,115,0 
160 DATA 32,250,174,32,158,173,32,143,173,165,100,72 
170 DATA 165,101,72,32,253,174,32,158,173,32,163,182 
180 DATA 240,100,133,4,134,251,132,252,104,168,104,32 
190 DATA 170,182,240,86,133,3,134,253,132,254,162,0 
200 DATA 32,121,0,201,44,20B,7,32,155,183,138,240 
210 DATA 65,202,134,6,32,247,174,165,3,56,229,4 
220 DATA 144,40,105,0,133,5,165,6,24,101,253,133 
230 DATA 253,144,2,230,254,160,0,177,251,209,253,208 
240 DATA 11,200,196,4,144,245,164,6,200,76,162,179 
250 DATA 230,6,198,5,208,4,160,0,240,243,230,253 
260 DATA 208,223,230,254,208,219,76,72,178,32,115,0 
270 DATA 32,250,174,32,15B,183,138,72,32,253,174,32 
280 DATA 158,173,36,13,48,12,32,170,177,165,100,208 
290 DATA 225,165,101,76,219,200,32,130,183,240,215,160 
300 DATA 0,177,34,133,3,104,32,125,180,168,240,7 
310 DATA 165,3,136,145,98,208,251,32,202,180,76,247 
320 DATA 174 
330 IF 8030119 

THEN F'RINT "ERROR IN DATA!!": 

END 

340 SYS 51200: 

PRINT "OK" 
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4.8 Automatic line numbering 


In this section we want to present a useful command for 
the Commodore 64 which makes it much easier to enter 
programs. This command, similar to the "AUTO" command found 
on other computers, will automatically create line numbers 
for you so that you do not have to type them in yourself. 
You can set both the starting line number and the increment 
by which each successive line number will be increased. It 
is quite simple to use this new command: 

To turn on the automatic line numbering, enter the 
following command: 

SYS 828, startnumber, increment 
Ex. SYS 828, 100, 10 

The increment may be an integer value up to 255. After 
entering the SYS command, the first line number is printed 
and the cursor is placed behind it. You can enter the 

program line directly and press RETURN when done. Now the 

next line number will be displayed automatically, line 110 
in our example. 

100 INPUT "INPUT";A$ 

110 

To end the AUTO command, simply press RETURN without 

typing anything else on a line. If you later want to 

continue entering lines, you need only enter 
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SYS 828 


The line number at which you left off will automatically be 
displayed. You can of course change the starting line number 
and increment at any time by entering these along with the 
SYS command. 


The machine language program is stored in the cassette 
buffer. Following this assembly language listing is again a 
loader program in BASIC. 


0001 

033C 




ORG 

828 

;CASSETTE BUF 

FER 








0002 

033C 



LO 

EQU 

*14 


0003 

033C 



HI 

EQU 

LO+1 


0004 

033C 



FAC 

EQU 

*62 

5 FLOAT I MG—F'O I 

NT ACCUMULATOR 






0005 

033C 



CR 

EQU 

13 

5 CARRIAGE RET 

URN 








0006 

033C 



LINE 

EQU 

251 

5 LINE 

0007 

033C 



I NCR 

EQU 

LINE+2 

?INCREMENT 

0008 

033C 



INTFLT 

EQU 

*BC49 

5INTEGER TO F 

LOATING P0IN1 







0009 

033C 



FLTASC 

EQU 

*BDDD 

;FLOATING POI 

NT 0 

ASCII 







0010 

033C 



VECTOR 

EQU 

*302 

5 LINE INPUT 

0011 

033C 



I NF'IJT 

EQU 

*FFCF 


0012 

033C 



PRINT 

EQU 

*FFD2 


0013 

033C 



BUFFI 

EQU 

*101 


0014 

033C 



BUFF2 

EQU 

*200 


0015 

033C 



MNLOOF' 

EQU 

*A486 


001 6 

033C 



GOON 

EQU 

*A569 


0017 

033C 



CONT 

EQU 

*A576 


0018 

033C 



CHRGOT 

EQU 

*79 


0019 

033C 



OLDVEC 

EQU 

*A483 


0020 

033C 



GETPAR 

EQU 

*B7EB 


0021 

033C 



CHKCOM 

EQU 

*AEFD 


0022 

033C 20 

79 

00 


JSR 

CHRGOT 

5 ADDITIONAL C 

HARACTERS? 







0023 

033F FO 

10 



BEQ 

LO 

UNO 

0024 

0341 20 

FD 

AE 


JSR 

CHKCOM 

5 COMMA? 

0025 

R 

0344 20 

EB 

B7 


JSR 

GETPAR 

5 GET PARAMETE 

0026 

0347 86 

FB 



STX 

I NCR 


0027 

0349 A5 

14 



LDA 

LO 

;AND SAVE 

0028 

034B 85 

FB 



STA 

LINE 


0029 

034D A5 

15 



LDA 

HI 
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0030 

034F 

85 

FC 



STA 

LINE+1 


0031 

0351 

A9 

5C 


LO 

LDA 

#<AUTO 


0032 

CTQR 

0353 

8D 

02 

03 


STA 

VECTOR 

? SET INPUT VE 

0033 

0356 

A9 

03 



LDA 

#>AUTO 


0034 

0358 

8D 

Ci 3 

03 


STA 

VECTOR+1 


0035 

035B 

60 




RTS 



0036 

035C 







.5 

0037 

035C 

20 

62 

03 

AUTO 

JSR 

AUTNUM 


0038 

035F 

4C 

86 

A4 


JMP 

MNLOOP 


0039 

0362 








0040 

0362 

A5 

FB 


AUTNUM 

LDA 

LINE 


0041 

0364 

A6 

FC 



LDX 

LINE+1 


0042 

0366 

B5 

63 



STA 

FAC+1 

5 LINE NUMBER 

0043 

0368 

86 

62 



STX 

FAC 


0044 

036A 

A2 

90 



LDX 

#*90 


0045 

o36C 

38 




SEC 



0046 

036D 

20 

49 

BC 


JSR 

INTFLT 

3 TO FLOATINS 

POINT 








0047 

0370 

20 

DD 

BD 


JSR 

FLTASC 

5 TO ASCII 

0048 

0373 

A2 

00 



LDX 

#0 


0049 

0375 

BD 

01 

01 

LI 

LDA 

BUFFI,X 

'5 BET DIGITS 

0050 

0378 

FO 

09 



BEQ 

L2 


0051 

037A 

9D 

00 

02 


STA 

BUFF2,X 

JIN BASIC BUF 

FER 

0052 

037D 

20 

D2 

FF 


JSR 

PRINT 

SAND OUTPUT 

0053 

0380 

E8 




I NX 



0054 

0381 

DO 

F2 



BNE 

LI 


0055 

0383 

A5 

FB 


L2 

LDA 

LINE 

SLINE NUMBER 

0056 

0385 

18 




CLC 



0057 

0386 

65 

FD 



ADC 

I NCR 


0058 

0388 

85 

FB 



STA 

LINE 


0059 

OSSA 

90 

02 



BCD 

L3 


0060 

038C 

E6 

FC 



INC 

LINE+1 


0061 

038E 

A9 

20 


L3 

LDA 

#32 

SOUTPUT SPACE 

0062 

0390 

20 

D2 

FF 


JSR 

PRINT 


0063 

0393 

20 

CF 

FF 


JSR 

INPUT 


0064 

0396 

C9 

OD 



CMP 

#CR 

5 EMPTY INPUT 

0065 

0398 

FO 

03 



BEQ 

L4 

3 YES 

0066 

039A 

4C 

69 

A5 


JMP 

SOON 

3 CONTINUE 

0067 

039D 

A5 

FB 


L4 

LDA 

LINE 


0068 

MBER 

039F 

E5 

FD 



SBC 

l'.NCR 

3 NEXT LINE NU 

0069 

03A1 

85 

FB 



STA 

LINE 


0070 

03A3 

BO 

02 



BCS 

L5 


0071 

03A5 

C6 

FC 



DEC 

LINE+1 


0072 

03A7 

A 9 

83 


L5 

LDA 

#< OLDVEC 


0073 

03A9 

AO 

A4 



LDY 

#>OLDVEC 


0074 

03AB 

BD 

02 

03 


STA 

VECTOR 

3 PUT OLD 

0075 

03AE 

8C 

03 

03 


STY 

VECTQR+1 

3 VECTOR BACK 

0076 

03B1 

4C 

76 

A5 


JMP 

CONT 



ASSEMBLY COMPLETE. 
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100 
no 

J 20 
130 
140 
150 
160 
170 
180 
190 
00 
10 
20 
30 


FOR I = 828 TO 947 

READ X : POKE I,X : S=S+X 1 NEXT 

DATA 32,121, 0,240, 16, 32,253,174, 32,235,183,134 

DATA 253,165, 20,133,251,165, 21,133,252,169, 92,141 
DATA 2, 3,169, 3,141, 3, 3, 96, 32, 98, 3, 76 

DATA 134,164,165,251,166,252,133, 99,134, 98,162,144 
DATA 56, 32, 73,188, 32,221,189,162, 0,189, 1, 1 

DATA 240, 9,157, 0, 2, 32,210,255,232,208,242,165 

DATA 251, 24,101,253,133,251,144, 2,230,252,169, 32 

DATA 32,210,255, 32,207,255,201, 13,240, 3, 76,105 

DATA 165,165,251,229,253,133,251,176, 2,198,252,169 

DATA 131,160,164,141, 2, 3,140, 3, 3, 76,118,165 

IF S <> 15495 THEN PRINT "ERROR IN DATA!!" : END 
PRINT "OK" „ 
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4.9 User-defined functions—DBF FN 


Many programmers prefer to add more lines or 
subroutines to their program instead of simply defining 
their functions. Admittedly, this technique is not well- 
described in the user’s guide, so we will try to clarify its 
use. In addition to the lack of emphasis in the 
documentation, there is another reason why this technique is 
not used: The function does not appear very powerful, at 
least at first glance, because only one argument may be 
passed to the user-defined functions. 

In this section we want first to illustrate the use of 
these functions and second, to show how complex multi- 
variable formulas can be implemented by nesting several 
functions. 

A function definition is constructed in the following 
manner: 

DBF FN name (function variable) = arithmetic expression 
Example: 

DBF FN A(X) = 2*X + B 

Our function has the name A and function variable X. 
When the function is called, the expression between the 
parentheses (it need not be X or even a variable) will be 
substituted for X in the arithmetic expression. Any 
variables with the name A or X will remain undisturbed. The 
function variable X is used only as a place holder for the 
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actual value given in the function call. In contrast, B 
implies the actual variable B which must be defined before 
calling the function. The function variable is often 
described as the dummy variable. The result of the function 
must always be numeric—a string expression is not allowed. 

As an example, we will define a formula which will 
round-off a value to the nearest hundreth—a function useful 
for working with dollar amounts. As you know, the third 
decimal place determines the rounding. If this value is 5 or 
greater, the second decimal place is increased by one 
(rounded up), else the number is merely truncated at the 
second decimal place (rounded down). 

Most programmers would place this rounding function 
directly into the program: 

A = INT (B*100+.5)/100 

If this function must be used more than once, one can save 
time and space by replacing it with a function call 

A = FNX(B) 

First, however, the function must be defined: 

10 DBF FN R(B) = INT(8*100+.5)/100 
100 A = FNR(B) 

The command in line 100 can be used as often as necessary 
in place of the longer formula, in which the variable B 
contains the value to be rounded. 
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Now an example of nesting functions. Here we will 
calculate the price of an item based on the cost, a given 
profit margin, and the sales tax. 

C is the cost 

P is the profit margin in % 

S is the sales tax in % 

10 DBF FN SL(C) = (C/(l-P/100)*(l+S/100)) 

20 DBF FN PR(B) = INT (FN SL(B)*100+.5)/100 

100 A = FN PR(C) 


After line 100, A contains the retail price, rounded to 
the nearest penny. Functions may also be nested deeper, of 
course. A maximum of ten functions may be nested. If you try 
to nest them any deeper, an "OUT OF MEMORY ERROR" will 
occur, indicating that the stack has overflowed (not 
necessarily that the BASIC program storage was exceeded). If 
subroutines (GOSUB) or FOR-NEXT loops are active during a FN 
call, the total nesting level including subroutines, FOR- 
NEXT loops, and FN levels must not exceed the maximum of ten 
levels. 


Ill 



Tricks & Tips 


4.10 BASIC HARDCOPY routine 

Have you ever tried to print the contents of the screen 
on your printer? There are a number of machine language 
program that allow you to do this, but it is also easy to do 
in BASIC. 

Since you must understand the operation of the program, 
you must first learn something about the construction of the 
screen memory. 

As you know, there are 1000 characters at your disposal 
on the screen. These 1000 characters are organized as 25 
lines of 40 characters each. These characters are naturally 
not only on the video display, but also stored in the 
Commodore 64’s memory. Normally, the area in which you will 
find the individual characters is in RAM from address 1024 
to 2023. In order to place on the paper all of the 
information on the screen, we must read the characters out 
of this memory area with PEEK and then print the 
corresponding values with the CHR$ function. It is important 
to note that the values in the range 0 to 31 cannot be 
printed directly because these values belong to the ASCII 
range of control characters and are by nature non-printable. 

There is one other thing we must pay attention to. The 
lines on the screen are 40 characters long but a line on a 
printer normally consists of at least 80 characters. If you 
are familiar with programming in BASIC, you know that to 
print characters one after each other with multiple PRINT 
statements (screen or printer) requires that the PRINT 
statements be followed with a semicolon. For our hardcopy 
routine we must print 40 characters one after the other (one 
entire screen line) and then send a carriage return to the 
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printer so that the screen image is printed the same way it 
appears on the screen. We can accomplish this with nested 
loops. The completed program looks like this: 

50000 OPEN 4,4: REM OPEN PRINTER CHANNEL FOR UPPER/GRAPHICS 

50010 FOR 1=1024 TO 1984 STEP 40: REM 25 LINES 

50015 BL$="": REM ERASE LINE 

50020 FOR J=0 TO 39: REM 40 LINES 

50030 L=PEEK(I+J): REM READ CHARACTER 

50040 IF L<32 THEN L=L+64: REM CONVERT TO UPPER CASE 

50050 BL$=BL$+CHR$(L): REM BUILD LINE 

50060 NEXT J : REM NEXT CHARACTER 

50070 PRINT BL$: REM PRINT LINE 

50080 NEXT I: REM NEXT LINE 

50090 RETURN: REM BACK TO MAIN PROGRAM 

You may have noticed that we wrote this program 
slightly differently than we had discussed before. If you 
have seen a hardcopy routine in action, you may have noticed 
that a certain amount of time goes by before the printer 
actually prints the line after it has been sent. Why? Almost 
every printer works with something called a buffer (of 
varying size). The characters which the computer sends are 
placed into this buffer until it is full. Then the buffer is 
printed. The advantage of this is that an entire line can be 
printed faster than just one character at a time. It is for 
a similar reason that we first fill a text string (BL$) with 
the individual characters before we print it. The computer 
is able to send a 40-character string faster than it can 
send 40 individual characters. 

One other feature of this program is the conversion to 
upper case characters in line 50040. The upper case 
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characters in the Commodore 64 are stored in memory using 
a range of codes starting with 1. In standard ASCII however, 
this character range starts with 65, therefore, all numbers 
less than 32 are incremented by 64 to allow them to be 
printed correctly. 
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Chapter 5 : Forth 


5.1 Programming in Forth 

What is Forth? This is a question often asked by those 
who have only programmed in BASIC or assembly language up to 
this point. Certainly many of you will say "Why should I 
learn another programming language when my Commodore has a 
good version of BASIC?" This objection may seem justified at 
first, but after a closer look, one must consider if it 
really is justified, especially when a computer can speak 
more than one language. 

Once you have programmed in BASIC for a while, you will 
come across things which either cannot be done at all or are 
very difficult to do. On larger computers, one has the 
ability to switch to other languages. There is FORTRAN for 
mathematical applications, COBOL for commercial purposes, 
assembly language for time-critical tasks, BASIC for general 
problem solving and so on. Then there are languages designed 
to force structured programming such as Pascal and ELAN. 
Each language has its strengths and weaknesses. 

Forth belongs to the youngest generation of programming 
languages, as its name says, to the fourth generation. The 
developers of Forth have tried to implement all the 
advantages of the older, better-known languages without the 
disadvantages of these languages. 
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Forth has in its structure some very striking 
advantages, especially for microcomputers: 

1. The computer on which Forth runs requires a 
very small address space. Because Forth programs 
do not require much space, large, efficient 
programs can be created on a very small computer. 

2. Forth is ideally suited for performing low- 
level (machine-level) or I/O functions even 
though one need not be acquainted with the 
hardware of the device in any great detail in 
order to program in Forth. It is often used in 
industrial control applications and robotics. 

3. In addition to the first two advantages, Forth 
does not require a disk drive, although it is a 
good idea to have one. 


Forth consists of five parts: 

1. DICTIONARY: The philosophy of Forth is such 
that the set of commands in Forth which relate 
directly to machine language code is very small. 
The user is permitted to define his own commands 
and use these in subsequent programs. This allows 
you to personalize Forth or optimize for 
performing certain types of operations. The 
dictionary itself is a linked list containing the 
current Forth commands (called words) and 
information necessary to execute them. 

2. STACK: The stack is the most important element 
of Forth. The notion of a stack is familiar to 
anyone who has done any machine language 
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programming or who owns a Reverse Polish Notation 
(RPN) calculator. We will come back to this 
later. 

The stack uses the last-in/first-out (LIFO) 
method of data storage. Virtually all operations 
work with the stack. 

3. INTERPRETER: Forth, like BASIC, is an 
interpreter. This means that one first creates a 
Forth program with the editor and then starts the 
program with the appropriate command. Error 
checking occurs while the program is running. 
There is no tedious waiting while the program 
compiles; it can be started immediately. This has 
the result that interpreted programs are 
typically slower than compiled programs. The time 
factor difference is not as great with Forth. The 
interpreter is divided into a text interpreter 
and an address interpreter. The text interpreter 
checks the words in the dictionary, and when the 
word is found, the address interpreter is 
activated. This interpreter works with absolute 
addresses, calling in turn each of the words 
which make up a user-defined or higher-level 
Forth word. These addresses are "compiled" into a 
word’s dictionary entry at the time it is 
defined. 

4. ASSEMBLER: Many Forth interpreters contain an 
assembler. This assembler can be used to define 
words which will then execute machine language 
routines when called. This method of programming 
is sometimes required for I/O—establishing 
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contact with the external world. Forth itself 
bears a certain resemblance to assembly language; 
it is quite fast, but far easier to learn. 

5. MEMORY: Memory is important for any 
programming language, and no less so for Forth, 
although it typically requires far less than 
other programming languages. In Forth, memory can 
be treated like blocks on a disk drive, and, to a 
certain extent, blocks on a disk drive can be 
treated like memory. 
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5.2 A comparison of Forth and BASIC 

The best way to see the advantages of Forth is to 
compare two programs, one written in Forth and the other in 
BASIC, which perform the same task. Before we present these 
programs, we must clarify a few things. 

In section 5.1 we mentioned that the stack plays a very 
important role in Forth, and that one can compare it to the 
method of operation of an RPN calculator (such as those made 
by Hewlett-Packard): 

Let’s calculate (2+3) * (4 + 5) on an HP calculator. The 
keys we press are: 

2 <ENTER> 3+4 <ENTER> 5 + * 

This looks confusing at first, but it is necessary in order 
to solve the equation without using parentheses. Pressing 
"2” and then the ENTER key places the number 2 on the top of 
the stack. Pressing "3" places this number on the stack, 
first moving the 2 one place lower on the stack. The stack 
now looks like this: 

STACK: TOP 3 

2 


BOTTOM 
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After the "+" key is pressed, the addition is carried 
out. The ”+" operation removes the top two values from the 
stack, adds them, and them pushes the result back onto the 
stack. The stack now looks like this: 

TOP 5 


BOTTOM 

Pressing the "4" key pushes the 5 down one place and puts 
the 4 on top: 

TOP 4 
5 


BOTTOM 

Entering the number 5 moves the old 5 and the 4 one place 
down on the stack: 
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TOP 6 

4 

5 


BOTTOM 

The "+" operation again removes the two most recently 
entered values from the stack, adds them and pushes the 
result back onto the stack. 

TOP 9 
5 


BOTTOM 

The last operation is the multiplication. It works in the 
same way as the addition. 

TOP 45 


BOTTOM 

Now the result is at our disposal. This process seems 
quite complicated and time-consuming, but each calculator 
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and computer works on this principle. On Hewlett-Packard 
calculators, as in Forth, this process is made explicit. 
Those who have done some programming in assembly language 
will be able to learn Forth with few difficulties, but even 
the novice learning Forth will have fewer problems than he 
might think. The greatest obstacle to learning Forth is that 
it is so different from most other languages, not that it is 
so difficult to understand on its own. 

We will now present a small Forth program which will 
clarify the operation of the stack and also illustrate the 
process of defining new words and adding them to the Forth 
vocabulary. The program takes the cube of a number; since 
there is no command to perform this calculation, we must 
define one: 

: CUBE ( THIS WORD IS BEING DEFINED ) 

DUP DUP ( COPY THE NUMBER TWICE ON STACK ) 

* * ( MULTIPLIES TOP TWO STACK VALUES 2X ) 


The colon in Forth tells the interpreter that a word is 
being defined. If we had not entered the colon, Forth would 
have responded 


CUBE ? 

indicating that it had not found this word in its 
dictionary. Since we did use the colon, however, Forth will 
treat everything up to the semicolon as the definition of 
this word. After encountering this character, Forth replies 

OK 
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The word CUBB is now part of our Forth dictionary and 
we can use it directly or within a program. It will remain 
so only as long as the computer is turned on, unless we save 
it onto a disk. 

The command DUP makes a copy of the value at the top of 
the stack and puts this copy back on the stack. Since we 
want not the square but the cube of the number, we must make 
two copies of the number. If the number 5 was at the top of 
the stack, the stack would now look like this: 

TOP 5 
5 
5 


BOTTOM 

Now we must multiply the numbers together. A total of 
two multiplications are necessary. Forth uses the usual 
symbol for multiplication. After we have performed the 
multiplications, the cube will be at the top of the stack, 
and we can end our definition. Note that during a colon 
definition none of these operations are actually carried 
out. The colon places Forth in what is called the compile 
mode, where it searches for each word in the definition and 
makes note of that word’s address within the dictionary, 
which it places in the definition for the new word. When we 
now use this new word, a colon run-time routine calls each 
of the words in turn, thereby executing the new command. 
Here are some examples of our new command (the tells 
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Forth to print the value at the top of the stack): 
You enter: Forth responds: 


5 CUBE . 125 OK 

1 CUBE . 1 OK 

-15 CUBE . -3375 OK 

As you can see, it is very easy to add new commands to 
Forth. You can make use of this feature to optimize the 
language to a specific application or set of applications. 

Now let’s compare Forth and BASIC. The program we will 
use calculates the cubes of the integers from zero to ten. 
The Forth program will make use of our newly defined word 
CUBE. 


1. Forth 


CUBENUMBERS 



10 0 

( 

FROM 0 TO 10 * LIFO 

DO 

( 

START OF LOOP ) 

CR I . 

I CUBE 



* ) 


LOOP 


( PRINT NUMBER (I) AND CUBE ) 
( END OF LOOP ) 


CUBENUMBERS 
0 0 
1 1 
2 8 
3 27 


124 





Tricks & Tips 


4 64 

5 125 

6 216 

7 343 

8 512 

9 729 OK 


2. BASIC 

10 REM CALCULATE CUBES 
20 MIN=0 : MAX=9 

30 FOR I=MIN TO MAX : PRINT I,I*I*I 
40 NEXT I 
50 END 

RUN 

0 0 

1 1 

2 8 

3 27 

4 64 

5 125 

6 216 

7 343 

8 512 

9 729 
READY. 


Both programs require approximately the same number of 
lines, but the Forth program requires far less storage space 
than does the BASIC program. Efficient use of memory is not 
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everything, however, Let us compare the speeds of Forth and 
BASIC. He can do this with a simple loop: 


1. Forth 


( FROM 0 TO 30000 ) 

( START OF LOOP ) 

( EMPTY LOOP ) 

( END OF LOOP ) 

( END OF DEFINITION ) 

BENCHMARK OK 

2. BASIC 


: BENCHMARK 
30000 0 
DO 

LOOP 


10 REM BENCHMARK 
20 MIN=0 : MAX=30000 
30 FOR I=MIN TO MAX 
40 NEXT I 
50 END 

RUN 

READY. 


The results may be quite surprising: 


Language: Time: 


BASIC about 40 seconds 

Forth about 4 seconds 
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Remember, these test were performed the same computer, the 
Commodore 64. 

This advantage alone should prompt many people to give 
serious consideration to learning Forth. Programming in it 
is quite easy and the speed and memory savings are 
significant. 

Forth - The language for professional software developers 

It is interesting to note that more and more 
professional software developers are changing their minds 
about Forth because of the many advantages that we have 
already discussed. In addition. Forth offers a short 
development time because it is as structured language, is 
easy to use, and in spite of this still offers the 
flexibility and speed of machine language. There are already 
programs for the Commodore 64 which have been developed in 
Forth, such as the spreadsheet program Calc Result. 

Forth has one last advantage which is of special 
interest to software houses. It belongs to the small group 
of portable languages, which means that a program written in 
Forth on one computer can easily be made to run on a 
different computer. This reduces the time required to 
produce a given software packages for multiple computers, 
something which is very important to software companies. 

If you are interested in learning more about Forth, you 
can try our TINY FORTH package, available for the Commodore 
64 or VIC-20. 
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Chapter 6 : CP/M on the Commodore 64 


6.1 Introduction to CP/M 

CP/M is one of the most widely-used microcomputer 
operating system. It has become the "standard" operating 
system, inasmuch as such a thing exists. CP/M has withstood 
the test of time, something which cannot be said of many 
other microcomputer operating systems. Most of the bugs have 
been worked out and the system is reasonably trustworthy. 

What can the Commodore 64 user gain from this operating 
system? He is used to BASIC 2.0 and the Commodore DOS, why 
another operating system? This question is not often found 
outside of Commodore users who have not seen much of the 
rest of the computer world. There one finds an undreamed-of 
quantity of software. Not that the 64 does not have a 
significant amount of software available for it, but it is 
nothing compared to the sheer volume available for CP/M. 

Not only can the user profit from the availability of 
CP/M software, but the programmer as well. He can write his 
software for a much larger body of users than ever before 
possible. Writing a program specifically for the Commodore 
64 limits the potential users to 64 owners, but many 
different computers can use CP/M, so writing a program to 
run under CP/M greatly increases the potential market for a 
program. Many programmers writing for an "exotic" operating 
system have heard "And when will the program be available on 
CP/M?" 
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At this point we must point out one major problem with 
every CP/M system: 

CP/M IS NOT THE SAME AS CP/M! 

Unfortunately, most computer manufacturers use their 
own modified version of CP/M. Despite the apparent 
compatibilty, it is not possible to interchange programs or 
transfer data. The CP/M for the Commodore 64 also has its 
peculiarities. For example, the I/O byte of CP/M is not 
implemented, the 64 can display only 40 characters per line 
on the video display, and even the disk format is not 
compatible with other computers. We will return to these 
problems and how to solve them later. 

CP/M has certain standards, some of which we have already 
mentioned: 

1. The computer on which it runs must have at 
least 48K of RAM. 

2. CP/M occupies the free memory at address 

$ 0100 . 

3. Most programs require a video display capable 
of displaying 24 (or 25) lines of 80 characters. 

4. Much CP/M software is available only on 8 inch 
disks. 

Let’s take a brief look at these standards. First, the 
computer must have at least 48K of RAM. Virtually all 
currently produced computers can be expanded to 48K of RAM, 
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and the Commodore 64 already comes with more than this. The 
ability of the 64 to switch the ROMs out is also important 
for implementing CP/M and other programs which could not be 
used on computers without this capability. CP/M can be 
placed where it is supposed to go, at address $0100. 

The first problem with implementing CP/M on the 64 is 
the limited screen size. CP/M programs such as Wordstar, 
Datastar, and others require an 80 column display for proper 
operation. The Commodore 64 has only 40 characters, although 
there is a solution which we will say more about in section 
6.3. 


The last problem concerns the disk drive. We mentioned 
that much of the CP/M software is available on 8 inch disks. 
The 1541 disk drive uses 5 1/4 inch disks. More and more 
computer manufacturers are using the 5 1/4 inch disk drives 
and so more CP/M software is being made available for these 
formats. Unfortunately, none is yet available in the 1541 
format. 

What does CP/M consist of? 

CP/M is an operating system composed of several parts, 
exactly, it consists of four major parts. 

1. BIOS (Basic Input/Output System): As the name 
implies, the BIOS is concerned with communicating 
with the outside world. It is used to send 
information to the printer, the terminal 
(screen), to the disk drive, and so on. The BIOS 
has a number of function calls which tell the 
operating system how this communication will take 


More 
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place. A complete table of these functions is 
found at the end of this description. 

2. BDOS (Basic Disk Operating System): This part 
controls the disk drives—the management of the 
directory and the actual read and write commands. 
These procedures are also controlled by 
individual function calls. 

3. CCP (Console Command Processor): The operating 
system must be told what it is you want it to do. 
This is generally done via the Commodore 64’s 
keyboard. The CCP transmits your commands to the 
CP/M system. 

4. TPA (Transient Program Area): This is the free 
program area which is available to the user. This 
storage area is used when you write or use a 
program. 

This is the layout of the BIOS, BDOS, CCP, and TPA 
memory: 


Name: Address: 

FDOS (BIOS + BDOS) $9C00 

CCP $9400 

TPA $0100 

System parameters $0000 


in 
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Here is the table of FDOS functions: 
Number: Function: 


BIOS 


00 System reset 

01 Head ASCII character from terminal 

02 Send ASCII character to terminal 

03 Read ASCII character from paper tape 

reader 

04 Send ASCII character to paper tape punch 

05 Send ASCII character to printer 

06 Send/receive character to/from console 

07 Read status from device 

08 Send status to device 

09 Send character string buffer 

10 Read character string into buffer 

11 Read status of console 


BDOS 


12 Read CP/M version number 

13 Disk reset 

14 Select drive number 

15 Open file (OPEN) 

16 Close file (CLOSE) 

17 Search for first program in FCB 

18 Search for next program in FCB 

19 Brase program (DELETE) 

20 Read from sequential file 
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21 Write to sequential file 

22 Create file 

23 Change filename (RENAME) 

24 Input possible drives 

25 Read current drive number 

26 Set DMA address 

27 Read address 

28 Set write protect 

29 Read read/write pointer 

30 Set read/write pointer 

31 Read address of disk parameters 

32 Read/set user id 

33 Read from random file 

34 Write to random file 

35 Calculate program length 

36 Read address of record 

All of these functions are called in a specific 

pattern. In order to clarify this, we must learn a little 

bit about 8080 machine language. Because CP/M was developed 
on this processor and the Z-80 microprocessor which is found 
in the Commodore CP/M module also understands the 8080 
machine language, CP/M applications are written in it. If 
you are not familiar with this machine language, but you 
would like to delve deeper into CP/M, we strongly recommend 

that you get a CP/M handbook such as Rodney Zaks CP/M 

Handbook and a good book on Z-80 or 8080 machine language. 

What do these function calls look like? 

As an example, we will read the version number of the 
Commodore CP/M (2.2) with the following routine: 
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MVI 

C, 12 

;FUNCTION 12 




CALI. 

0005 

;JUMP TO BDOS 




CPI 

20H 

;$20 INDICATES CP/M.2.0 


First the C 

register is 

loaded with the 

value 

12, the 

function 

number 

for reading the CP/M version 

number. 

This C 

register 

is always loaded 

with the function 

number 

before 

the branch is 

made to address 0005. CP/M now knows 

that we 

want to 

find 

out the 

version number, 

and 

branches 


automatically to the point in the CP/M system where the 
version number will be read. BDOS then jumps back to our 
routine after placing the version number in the accumulator. 
If the value is $20 then we know that the version number is 
at least 2.0. This information is very important if we want 
to write a program which uses random file access because all 
CP/M versions before 2.0 can work only with sequential files 
(see chapter 8). If we want our program to run on a CP/M 
computer other than the Commodore 64, we can easily 
determine if it will run or not by reading the version 
number and checking to see that it is 2.0 or greater. 

The various registers play an important role in the 
CP/M function calls. The first to mention is the C register 
which contains the function number prior to the BDOS/BIOS 
call. After the execution of the appropriate routine, the 
other registers contain the desired information. Some 
functions do not return any information, rather they output 
information to some device, or inform the operating system 
itself of something. For these types of calls, the 
appropriate register or registers are loaded with the 
information, the C register is loaded with the function 
code, and then call is made. 
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Why function codes? 

As you know by know, it is an advantage of the CP/M 
operating system that a CP/M program can generally be run on 
any CP/M computer. Small changes to the BIOS/BDOS or CCP may 
be necessary to implement CP/M itself on different 
computers, however. In order to guarantee that a program 
will run without the programmer having to worry about the 
construction of a particular version of CP/M, the function 
calls to the BIOS/BDOS via address 0005 are used. This way a 
given part of the operating system can be changed without 
having to rewrite any programs. The same advantage is found 
in the kernel ROM of the Commodore 64, without the CP/M 
operating system. In the kernel is a list of subroutine 
entry points called a vector table which call the various 
input/output routines. If any of these routines are changed, 
it is still possible to use the old programs; they notice 
nothing of the altered operating system. 

The CCP commands 

The CCP serves as an interface between the user and the 
CP/M operating system. Programs can be executed from the CCP 
and it also supervises its own small set of commands: 

1. DIR (DIRectory): This command displays the 
contents of the disk. It offers the following 
options: 

- DIR displays the entire directory listing 
of the disk in the currently selected 
drive. 
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- DIR B: displays the entire directory 

listing of the diskette in drive B (1). "A" 
nay be used in place of B, causing the 
directory of the disk in drive A (0) to be 
displayed. 

- DIR <name.ext> only indicates whether or 
not the given file is on the diskette. The 
name may be up to eight characters long, 
must start with a letter, and may contain 
no special characters (punctuation) except 
the extension separator, the period, "ext" 
is a three-letter extension of the program 
name. It is normally used to indicate the 
type of program. For example, only programs 
which end in COM may be executed directly. 
TXT indicates that the file contains text, 
BAS indicates a BASIC program, and so on. 

- DIR <*.ext> displays all programs ending 
with ext. DIR *.C0M would display all 
programs ending with .COM, i.e. all 
directly-executable programs. 

See the CP/M manual for other options with 
the DIR command. 

Here is the format of the directory listing when 
using the DIR command on the Commodore 64: 


A>DIR 

A: MOVCPM 

COM : 

PIP 

COM 

A: 

SUBMIT 

COM : 

XSUB 

COM 

A: 

ED 

COM : 

ASM 

COM 

A: 

DDT 

COM : 

LOAD 

COM 
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A: 

STAT 

COM 

SYSGEN 

COM 

A: 

DUMP 

COM 

DUMP 

ASM 

A: 

A> 

COPY 

COP 

CONFIG 

COM 


2. ERA (ERAse): This command erases one program 
or several programs from the directory. Here too 
there are several options: 

-ERA <name.ext> 

-ERA <*.ext> 

3. REN (REName): With this command you can give 
an existing program or data file a new name. 
There is only one form of the command: 

- REN <new name> = <old name) 

4. TYPE: This command is used only for text 
files. It displays the contents of a file on the 
screen. It has the form: 

- TYPE <filename.ext> 

In most cases the extension will be TXT, PRN, or 
something similar. 
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5. SAVE: This command appears quite complicated 
at first. It is normally used to save a program 
modified with DDT, or for saving a modified CP/M 
version. The format is: 

- SAVE <number of pages> <name.ext> 

The number of pages is the number of 256-byte 
"pages" to be saved. The command 

SAVE 50 TEST.COM 

puts the contents of memory from address $0100 
(start of the TPA) to address $32FF under the 
name TEST.COM. The length is 50*256. 

6. USER: This command allows the directory to be 
divided up for different users. It is possible to 
protect certain areas of the directory from 
access by other users (on other computers). This 
command has no real value on the Commodore 64, 
however. The form is: 

- USER user number 

The user number is an integer from 0 to 15. 
Entering the number places one in the directory 
of the corresponding user. The default number is 
zero. 


These are the commands which every computer using the 
CP/M operating system understands. Only the USER command is 
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new since version 2.0. All others belong to the standard 
CP/M command set. In the next pages we will present a short 
overview of the standard CP/M programs: PIP, BO, DDT, and 
STAT. They are supplied on every CP/M system diskette, but 
they are programs, not commands. They serve to expand the 
commands available on CP/M, but they must be first loaded in 
from disk. 
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6.2 The individual CP/M programs 

What would CP/M be without its framework of utility 
programs? Digital Research, the producer of CP/M, has made 
sure that the user can start programming immediately. (Note 
to Commodore 64 users: No version of BASIC comes with the 
Commodore CP/M although one may be added later). 

The following programs belong to the CP/M standard: 

- STAT.COM A program which obtains and displays the 

various system information such as the space 
left on the disk, device assignments, and so 
on. 

- ASM.COM This is an assembler provided for programming 

in 8080 assembly language. 

- LOAD.COM This programs makes ready-to-run programs out 

of assembled programs (programs with the 
extension .HEX). 

- DUMP.COM With this program a program (.COM) can be 

displayed on the screen in readable 
hexadecimal format. 

- PIP.COM PIP is a program to exchange data between 

different peripheral devices. 

- ED.COM The CP/M text editor. This program is useful 

for creating text, assembly language source 
programs and so on. 
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- SYSOEN.COM PIP can only copy files, so SYSGEN is needed 

to write the individual BIOS tracks on the 
disk and thereby generate a new BIOS (see 
section 6.3). 

- MOVCPM.COM This program fits the standard CP/M to your 

special type of computer (see section 6.3). 

- SUBMIT.COM It often happens that the same input must be 

entered repeatedly. The SUBMIT command allows 
you to create a file of this input which it 
will enter at the appropriate time (such as 
setting certain start-up parameters). 

- XSUB.COM This program also eases the work of entering 

repeatedly occurring commands. It is only 
combination with SUBMIT. It allows manual 
input, over the keyboard, during the 
operation of SUBMIT. 

At this point we cannot deal with all of these programs 
in detail. We shall limit our presentation to a brief 
introduction to three of the most commonly used programs. 
More information can be obtained from the CP/M manual. 


STAT 

STAT is one of the more important CP/M programs. It 
might also be called the STATUS program because one can 
obtain a great deal of information about the condition of 
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the entire system from it. STAT not only gives the remaining 
space on the diskette and the length of the files, but it 
can also alter the read/write pointer which indicates 
whether the disk can be written to and read from, or may 
only be read from. There is one limitation when using the 
Commodore 64 version of CP/M. The I/O byte is not 
implemented which means that the individual assignments 
cannot be changed. This should not be a problem in normal 
use, however. 

An example of the STAT program: 

A>STAT VAL: 

TBMP R/0 DISK: D:=R/0 

SET INDICATOR: D:FILENAME.TYP $R/0 $R/W $SYS $DIR 

DISK STATUS : DSK: D:DSK: 

USER STATUS : USR: 

IOBYTE ASSIGN: 


CON: 

_ tty : 

CRT: 

BAT: 

UC1 

RDR: 

= TTY: 

PTR: 

UR1: 

UR2 

PUN: 

_ jty : 

PTP: 

UP1: 

UP2 

LST: 

_ tty: 

CRT: 

LPT: 

UL1 


Here we can find out which values and in what form we can 
(theoretically) change, but as already mentioned, the values 
under IOBYTE cannot be changed on the Commodore 64. 

If we want to place a write protect on a disk, for 
example, we enter STAT A:R/0. This write protect remains as 
long as the device is turned on. To find out the CP/M device 
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assignments, enter STAT A:DEV:. On the 64 the result will 
be: 


A>STAT DEV: 

CON: IS TTY: 

RDR: IS TTY: 

PUN: IS TTY: 

LST: IS TTY: 

Changing any of these assignments will have no effect on the 
Commodore 64. 

The information about the disk characteristics is also 
very informative. Here we can learn the disk capacity, what 
the construction looks like, and much more. The appropriate 
command is 

A>STAT DSK: 

A: DRIVE CHARACTERISTICS 
1088: 128 BYTE RECORD CAPACITY 
136: KILOBYTE DRIVE CAPACITY 
64: 32 BYTE DIRECTORY BNTRIES 
64: CHECKED DIRECTORY ENTRIES 
128: RECORD/ EXTENT 
8: RECORD/ BLOCK 
34: SECTORS/ BLOCK 
2: RESERVED TRACKS 
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PIP 

PIP is a universal program for copying files. Not only 
can it copy between different disk drives, it can also send 
data intended for the screen to the printer. This has the 
advantage that the programs themselves do not have to be 
changed in order to have them print out results on the 
printer. In order to copy a entire diskette, the form PIP 
B:=A:*.* is used. This command copies all the files from 
drive A to drive B. To send data to the printer, we would 
use a command such as PIP LST:=DUMP.ASM. Now, provided that 
the printer is connected, the entire program DUMP.ASM will 
be printed. 


ED 

The text editor allows input of text or programs which 
will be later compiled or assembled, such as FORTRAN, COBOL, 
or assembly language programs. Working with ED requires some 
practice; it will appear somewhat complicated to Commodore 
users but it will not take long to become familiar with this 
simple editor. An example: 

A>BD TEST.TXT 
NEW FILE 
*1 

THIS IS THE FIRST TEXT LINE 
AND THIS IS THE SECOND 

<CTRL>-Z press the CTRL and the Z key 

at the same time 
*E 
A> 
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These commands write the two lines of text shown beneath the 
"*I" to a disk file called TEST.TXT. The is the editor’s 
command prompt. Entering the E command ends the editing 
session and saves the file to disk, returning you to CP/M 
and the A> prompt. This file can be listed by entering TYPE 
TEST.TXT. Other editing commands for changing and 
manipulating the file from within ED are also available; 
consult your CP/M manual for details. 
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6.3 Adapting standard CP/N software to the 64 


What must be taken into consideration when adapting 
CP/M software to the hardware of the Commodore 64? First you 
nust remember that the screen is only 40 columns across. 
Because most CP/M software is written for an 80 column 
screen, you will need an 80 column card of some sort. In 
addition, a large, fast disk drive would be useful for 
working with CP/M. 

To adapt CP/M to a specific computer, the operating 
system has two programs at its disposal: MOVCPM and SYSGEN. 
MOVCPM sets up the operating system for a specific memory 
configuration. It is possible to make use of the maximum 
memory capacity this way. When starting up the CP/M system, 
the computer responds with the message 44K CP/M. It is 
possible, however, to use the entire memory for CP/M. We 
have mentioned before that RAM can occupy the entire address 
space of the Commodore 64. 

The CP/M system can be copied onto your own diskettes 
with SYSGEN, allowing you to create "boot” diskettes, disk 
which you can use to initialize or "boot-up" the CP/M 
system. 

The problem of transferring existing CP/M programs to 
the VIC-1541 disk format is one the greatest obstacles to 
using CP/M on the Commodore 64. In section 6.9 we will 
present a method for transferring standard Commodore files 
(DOS 2.6 files) to CP/M. This can be used, together with an 
RS-232 serial interface and a terminal program which allows 
files to be down-loaded to the 64, to down-load programs 
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from another CP/M computer for which software is available 
in the appropriate format. The connection between the two 
may be made directly using something called a null-modem 
cable or over the phone lines via modems. Once the program 
is saved as a DOS 2.6 file, it can be transferred to CP/M as 
described in section 6.9. 
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6.4 The memory management of the Z-80 processor 

The Z-80 processor on the CP/M card can address the 
entire 64K bytes of the Commodore 64. Since the Z-80 
requires address zero as the reset address (the address at 
which execution will start upon reset or power-up), and this 
address is assigned as the processor port of the 6510, the 
addressing of the memory through the Z-80 microprocessor is 
handled differently than the addressing through the 6510. 
The CP/M card contains the hardware to create an offset when 
addressing the memory through the Z-80. The offset is equal 
to $1000 or 4096. This results in the following situation: 
When the Z-80 wants address zero, the hardware manipulations 
of the address lines result in an address which is 
equivalent to address $1000 for the 6510. To calculate the 
corresponding Z-80 address from a 6510 address, simply 
subtract $1000. Alternatively, you can also add $F000 and 
ignore the overflow. Through this trick, an area of 4K bytes 
from address 0 to $0FFF on the 6510 is placed at the end of 
the address range of the Z-80 ($F000-$FFFF). This memory 
area contains the zero page, the stack, and the scratch pad 
memory of the 6510 as well as the video RAM. The other 2K 
from $800 to $FFF is used by the CP/M card to transmit data 
between the 6510 and the Z-80, as well as program storage 
for the 6510 input/output routines. The Z-80 delegates all 
of the input/output to the 6510 


Label 

6510 

Z80 

Description 

KSTBUF 

$0800 

0F800H 

256-byte disk buffer 

CMD 

$0900 

0F900H 

command register for the 6510 

DATA 

$0901 

0F901H 

data register 
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SECTOR 

$0902 

0F902H 

TRACK 

$0903 

0F903H 

DISKNO 

$0904 

0F904H 

KBYCHAR 

$0905 

0F905H 

MODESW 

$DE00 

0CE00H 

IOTYPE 

$0CFF 

OFCFFH 


6510 


sector register 

track register 

register for drive number 

number of the pressed key 

switch for 6510/Z80 

I/O configuration 

Z80 


6510 


$FFFF 


$0000 

$0000 


$1000 

$0000 


6510 

OPERATING 

SYSTEM 

48K 


44K 

CP/M 


6510 - Z80 


0EFFFH 


0C000H 

0B000H 


00000H 

0FFFFH 


0FFFFH 


0F900H 

0F800H 

0F400H 


0F000H 


BI0S65 


DISK BUFFER 


VIDEO RAM 


6510 

WORK STORAGE 


$0FFF 


$0900 

$0800 

$0400 


$0000 
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6.5 Disk management under CP/H 

A diskette is divided into a number of concentric 
tracks which are further divided into sectors. These 
divisions are set up as follows on the 1541: 


Track 

Sectors 

1-17 

0-20 

18-24 

0-18 

25-30 

0-17 

31-35 

0-16 


A total of 683 sectors (blocks) are available. Track 18 is 
used to store the directory, so 664 blocks are available for 
file storage. 

Under CP/M, the first two tracks are reserved for the 
CP/M operating system itself; the other tracks are free for 
data and program storage. Because disk management under CP/M 
cannot make use of a variable number of sectors, only the 
sectors from 0 to 16 are used. In effect you have 32 tracks 
each containing 17 sectors, for a total of 574 256-byte 
blocks or 143K bytes of storage. In addition, the CP/M 
directory requires some space (64 entries or 32 bytes each, 
2K bytes). This is stored in the CP/M BIOS (Basic 
Input/Output System) disk parameter block and can be adapted 
by the user to his disk capacity. Track 18 (which contains 
the Commodore directory) is not used by CP/M. 

Track 1, sector 0 of the operating system disk contains 
the loader program "CPM." The "BIOS 65" is contained in 
track 1, sectors 1 through 5, which contains the I/O 
routines for the 6510 as well as the cold-start loaders for 
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CP/M. The program "CPM" loads these three sectors at 
addresses $0A00 to $0EFF. From there the block from $OEOO to 
$0EFF is transferred to address $1000 to $10FF. This is Z-80 
address zero, at which the cold-start loader will be 
transferred. Finally, the 6510 switches itself off while 
switching the Z-80 on. The Z-80 begins executing the program 
at address zero, which loads the CP/M operating system from 
disk. The CCP and the BDOS (Command Control Processor and 
Basic Disk Operating System) occupy 22 sectors on tracks one 
and two, from track 1 sector 6 to track 2 sector 10. These 
sectors are also loaded in on a warm start with control-C; a 
star appears on the screen for each sector loaded in. The 
BIOS, which is loaded in only on a cold start, occupies five 
sectors from track 2 sector 11 to sector 16. The directory 
occupies sectors 0 through 7 on track three. 

With the CP/M utility program COPY, only the necessary 
sectors are copied, depending on the option selected. For 
example, selecting "system tracks only" copies only sectors 
1 and 2 as well as 18 and track 3 for the CP/M directory. 

If you want to connect a different disk drive, using 
the IEEE bus for example, you must know the track and sector 
layout of the drive. No adaptation is necessary for the 4040 
drive because it is completely compatible with the 1541. To 
make use of the greater storage capacity of the 8050 or 8250 
dual drives, it is necessary to make some changes to the 
"disk parameter block" of the BIOS. There are the values for 
the sectors per track (23 for the 8050) and the disk 
capacity. In addition, the tracks 38 and 39 must be set 
aside instead of track 18 because the directory is stored 
there on the 8050. These changes must also be made in the 
COPY program. 
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6.6 The interaction between the 6510 and the Z-80 


When you work with CP/M on the Commodore 64, the two 
microprocessors share the work. While the Z-80 serves the 
actual CP/M, the 6510 is brought into play to handle the 
input/output operations since the Commodore 64 already has 
these routines in its kernal ROM. The Z-80 delegates the 
following tasks to the 6510: 

Command number Operation 

0 read a sector from the disk 

1 write a sector to the disk 

2 read the keyboard 

3 display a character on the screen 

4 get the printer status 

5 output a character to the printer 

6 format the diskette 

7-9 reserved for future expansion, such as 

serial I/O 


The two processors cannot operate simultaneously. The 
address $DE00 of the 6510 (0CE00H on the Z-80) is used to 
switch between the two. When the Z-80 wants the 6510 to 
execute an I/O function, it sends the 6510 the number of the 
desired code from the above table and switches itself off 
while switching the 6510 on. It does this by writing a ”1" 
to address 0CE00H. The 6510 fetches the command code, 
executes the appropriate command, and switches over to the 
Z-80 by writing a "0" to address $DE00. The Z-80 can then 
continue with its program at the point where it had passed 
control to the 6510. Because of certain hardware 
requirements, the first command executed after switching 
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fro* the 6610 to the Z-80 must be a NOP (No Operation). 

Six memory locations at address $900 (0F900H for the Z- 
80) are used to transmit parameters. 


6510 

Z-80 

Parameter 

$0900 

0F900H 

command number 

$0901 

0F901H 

data for input or output 

$0902 

0F902H 

sector number 

$0903 

0F903H 

track number 

$0904 

0F904H 

disk number 

$0905 

0F905H 

key number 


The memory from $800 to $8FF (0F800H to 0F8FFH) is used 
as a buffer to hold a sector to be written to the disk or 
one which has just been read from the diskette. Reading and 
writing disk sectors is performed with the direct access 
Block-Read and Block-Write commands. 

The keyboard polling yields only the number of the 
depressed key. The assignment of an ASCII value to a key 
happens in the BIOS using a 256-byte table at address $D00 
(0FD00H). A table at address $C00 (0FC00H) contains the 
addresses of the character strings assigned to the functions 
keys. The definitions themselves start at address $C10 
(0FC10H) and may consist of up to 16 characters each. These 
assignments may be changed with the program CONFIG. 
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6.7 Implementing your own Input/Output routines in BIOS 


The CP/M BIOS contains two routines called PUNCH and 
READBR, which are not used in the Commodore 64 version of 
CP/M. The READBR routine currently returns a control-Z, the 
marker for the end of the file. We can use it and the PUNCH 
vector for our own purposes. The PUNCH routine could be used 
to drive a printer with a Centronics-type parallel 
interface, for instance, as described in section 7.1. The 
driver routine can be formulated in 6510 code, and we can 
use the command codes 7 and 8 which branch to locations $E00 
and $F00, respectively, to call our drivers. The call would 
look something like this: 


PUNCH: 


;output character to PUN: Centronics printer 


MOV 

A, C 

{character in accumulator 

STA 

DATA 

; into 

transfer register 

MV I 

A,7 

; code 

for our routine 

STA 

CMD 



CALL 

106510 

; call 

6510 routine 

RET 





Our 6510 driver must be located at address $E00; we 
have 256 bytes available to us. Since the routine need only 
handle outputting the data to the port and the handshaking, 
this will be plenty of room. 

The READER routine can be implemented similarly. 
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READER: 


; set 

character 

from RDR: 

MVI 

> 

00 

;code for our routine 

STA 

CMD 


CALL 

106510 

;call 6510 routine 

LDA 

DATA 

;get character 

ANI 

RET 

7FH 

;erase parity bit 


The command code 8 expects the input routine to be at 
address $F00; here too we have 256 bytes available to us. 
You can define your favorite input device as RDR:, such as 
the cassette recorder, another disk drive, or an interface 
to transfer data from other computers. The READER routine 
expects text data in standard ASCII format. The end-of-file 
is indicated by a control-Z, as usual. 
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6.8 Transferring CP/N programs and data to and froa 
Coaaodore BASIC 


When one works with CP/M on the Commodore 64, one 
normally does not have the ability to later use programs or 
data in the normal BASIC mode of the 64. These files are 
only accessible in the CP/M mode. It is possible to transfer 
files, however, with a small change to the BIOS. 

In CP/M you can send data to the printer. This is done 
in BI0S65 with the appropriate OPEN and PRINT# commands. At 
this point we can go in and simply change the device number 
on the OPEN command. If we set the number to one, all the 
data intended for the printer will be sent to the cassette 
recorder instead. We must enter one as the secondary address 
a well, so that the tape file will be opened for writing. We 
can make this change using the CP/M program DDT. Enter the 
following commands to make the changes (your input is 
underlined): 


DDT 

-SFAC7 


FAC7 

07 

fil 

FAC8 

20 

.. 

-SFADD 


FADD 

00 

01 

FADE 

A9 


-SFAE6 


FAE6 

04 

01 

FAE7 

20 

0 


-2Q 
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Now when you output something with "P or PIP LST:=, it 
will not be sent to the printer but to the cassette drive. 
The first time, the message "press record & play on tape" 
will appear and the screen will go dark. Once the data has 
been sent, press control C and then press STOP and RESTORE 
together during the warm start. The computer will respond 
with "ready." in the Commodore mode. Now you must close the 
tape file with CLOSE 4, and after you have the turned the 
computer off and back on again, you can read the tape file 
in: 


100 OPEN 1 
110 GETtl, A$ 

200 IF ST<>64 THEN 110 
210 CLOSE 1 

This program gets the data character by character; you can 
then save it to a disk file or do whatever you like with it. 

If you want to transfer data from CP/M often, you can 
use the editor (ED) and the assembler (ASM) to create a 
small program which makes the changes for you so that you do 
not have to use DDT. First create the following program 
using ED: 

ORG 100H 
MVI A,1 
STA 0FAC7H 
STA 0FADFH 
STA 0FAE6H 
JMP 0 
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and assemble it 

ASM TAPE.AAX 

Then make a .COM file out of it 

LOAD TAPE 


Now you can make the changes by simply typing the program 
name TAPE from CP/M. 

It is also possible to transfer data the other way, 
from the Commodore BASIC mode to CP/M. To transfer a file, 
is must be saved as a program file with load address $1100. 
This is equivalent to the Z-80 address 100H, the start of 
the Transient Program Area (TPA). The following program will 
save a file as a program with a load address of $1100: 

100 INPUT "NAME OF THE FILE ";N$ 

110 OPEN 2,8,2, N$ 

120 OPEN 1,8,1, N$+".CPM": HEM OPEN PROGRAM FILE 
130 PRINT#1, CHR$(0)CH9$(17); : REM START ADDRESS $1100 
140 GET#2, A$: IF ST=64 THEN CLOSE 1:CLOSE 2: END 
150 PRINTtl, A$;: GOTO 140 

Before we can load the program, we must know its length. We 
can find this by loading the directory. 


25 "NAME.CPM" PRG 


Remember the number 25. Now we load the program file. 
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LOAD "NAME.CPM",8,1 

Insert the CP/M diskette and enter CP/M as usual. When CP/M 
is loaded, we can save the file under CP/M. 

SAVE 25 NAME.TXT 


Here the number 25 gives the number of 256-byte blocks to be 
saved, but is identical to the number of blocks given in the 
Commodore directory. There may be a problems with 
upper/lower case reversal when transferring text files. If 
this is the case, the conversion to standard ASCII can be 
made to A$ in line 140. 
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Chapter 7: Interface and expansion options 


7.1 The USER port: An interface for a Centronics printer 

The Commodore 64 has an interface which is not normally 
used by the operating system, and which is available for 
your own devices. This interface consists of an 8-bit port 
and two handshake lines. The 8-bit port can be used for 
input as well as output; each bit may be switched 
independently. 

This interface is ideally suited for implementing a 
printer interface. Here in short is the procedure: 

The 8 bits of a byte are sent in parallel over eight 
data lines. To insure that no data are lost during the 
transmission, two so-called "handshake lines" are used. 
Before the computer sends a data byte to the printer, it 
checks the BUSY line to see if the printer is ready to 
receive the data. If the BUSY line is high, the printer is 
not ready and the computer must wait. When the printer is 
ready, the computer sends the data over the port and signals 
the printer by means of the STROBE line that it is sending 
the data. The printer accepts the data and sets the BUSY 
line high until it is ready to receive another character. 
Now the next byte can be transmitted, and so on. This 
process ensures that the printer actually receives each byte 
sent by the computer. 

In order to be able to use the PRINT# command to send 
data to the printer, the software in the operating system 
must be modified. There is also one additional problem: 

Most of the printers with a Centronics-type interface 
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use the standard ASCII character set, which is different 
from the Commodore 64’s character set. We must convert the 
codes used by the computer to the equivalent codes used by 
the printer. In addition, it is also necessary to be able to 
send data to the printer exactly as the computer sends it. 
This is required when doing things like graphics on the 
printer. 

To solve this problem, we have written the driver 
program to accept two options. If no secondary address is 
given along with the OPBN command, the data will be 
converted from the Commodore codes to the appropriate ASCII 
codes. If a secondary address of one is given, the data will 
be sent to the printer without alteration. The device 
address 2 was chosen. This address is normally used for the 
RS232 interface, but since this interface cannot be used in 
conjunction with our interface (it also uses the USER port), 
this presents no problems. 

To send a program listing over this interface, you 
would enter the following commands: 

OPEN 1,2 : CMD 1 : LIST 
After the cursor reappears, enter 

PRINT#1 : CLOSE 1 

to return the CMD mode to normal and close the channel. If 
you want to transmit graphics data or printer commands, the 
following would be used: 


161 



Tricks & Tips 


OPEN 1,2,1 
PRINT# 1, 
CLOSE 1 


For the hardware portion of the interface, all that is 
needed is a cable with a USER port socket on one end and a 
Centronics socket on the other. The pin layout of the cable 
is given at the end of the assenbly listing. When connecting 
the printer, attach the cable between the printer and 
coaputer, turn the cosputer on, and then turn the printer 
on. Load the nachine language progran and initialize it with 
SYS 12*4096. 


0001 

cooo 




5 CENTRONICS I 

INTERFACE DRIVER FOR 

CBM 64 




0002 

cooo 




;PRINTER CONN 

ECTED TO USER PORT 





0003 

cooo 




5 

0004 

cooo 




5 DEFINITION 0 

F THE I/O VECTORS 





0005 

cooo 




5 

0006 

cooo 

OPENV 

EQU 

*31A 


0007 

cooo 

CLOSEV 

EQU 

*31C 


0008 

cooo 

CHKINV 

EQU 

*31E 


0009 

cooo 

CHKOTV 

EQU 

*320 


0010 

cooo 

BSOUTV 

EQU 

*326 


0011 

cooo 

XREG 

EQU 

*97 

5 STORAGE FOR 

REGISTER 





0012 

cooo 




S 

0013 

cooo 




SPORT DEFINIT 

IONS 

0014 

cooo 




. 

0015 

cooo 

PORTA 

EQU 

SDDOO 

SCIA2 PORT 

0016 

cooo 

PORTS 

EQU 

*DD01 


0017 

ON 

cooo 

DDRA 

EQU 

*DD02 

5 DATA DIRECTI 

0018 

cooo 

DDRB 

EQU 

*DD03 


0019 

cooo 

ICR 

EQU 

*DDOD 

SINTERRUPT CO 

NTROL REGISTER 





0020 

cooo 

LF 

EQU 

*B8 


0021 

cooo 

SA 

EQU 

*B9 


0022 

cooo 

FA 

EQU 

*BA 


0023 

cooo 

NMBFLS 

EQU 

*98 


0024 

cooo 

LFTAB 

EQU 

*259 


0025 

cooo 

FATAB 

EQU 

*263 


0026 

cooo 

SATAB 

EQU 

*26D 
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0027 

cooo 




SRCHFL 

EQU 

*F30F 


0028 

cooo 







; 

0029 

ON 

cooo 







SINITIALIZATI 

0030 

cooo 







5 

0031 

cooo 





ORB 

*cooo 


0032 

cooo 

A9 

58 



LDA 

4K0PEN 


0033 

C002 

AO 

CO 

' 


LDY 

#>QPEN 


0034 

C004 

8D 

1A 

03 


STA 

OPENV 


0035 

C007 

BC 

IB 

03 


STY 

OPENV+1 


0036 

COOA 

A9 

8B 



LDA 

#<CLOSE 


0037 

COOC 

AO 

CO 



LDY 

# >CLOSE 


0038 

COOE 

8D 

1C 

03 


STA 

CLOSEV 


0039 

C011 

BC 

ID 

03 


STY 

CLOSEV+1 


0040 

CO 14 

A9 

A3 



LDA 

#<CHKIN 


0041 

CO 16 

AO 

CO 



LDY 

# >CHKIN 


0042 

CO IS 

8D 

IE 

03 


STA 

CHKINO 


0043 

CO IB 

8C 

IF 

03 


STY 

CHKINV+1 


0044 

CO IE 

A9 

BA 



LDA 

4KCHK0UT 


0045 

C020 

AO 

CO 



LDY 

#>CHKOUT 


0046 

C022 

8D 

20 

03 


STA 

CHKOTV 


0047 

C025 

8C 

21 

03 


STY 

CHKOTV+1 


0048 

C028 

A9 

D1 



LDA 

#<BSOUT 


0049 

C02A 

AO 

CO 



LDY 

# >BSOUT 


0050 

C02C 

8D 

26 

03 


STA 

BSOUTV 


0051 

C02F 

BC 

27 

03 


STY 

BSOUTV+1 


0052 

C032 

A9 

FF 



LDA 

#*FF 


0053 

TPUT 

C034 

8D 

03 

DD 


STA 

DDRB 

;PORT B AS OU 

0054 

C037 

AD 

02 

DD 


LDA 

DDRA 


0055 

C03A 

09 

04 



ORA 

#*04 


0056 

T 

0057 

C03C 

8D 

02 

DD 


STA 

DDRA 

5 PA2 AS OUTPU 

C03F 

60 




RTS 



0058 

C040 







; 

0059 

C040 







5 OUTPUT WITH 

HANDSHAKE 








0060 

B 

0061 

C040 







5 DATA TO PORT 

C040 







5 STROBE ON PA 

0062 

C040 







S BUSY OVER FL 

AS TO ICR 








0063 

C040 








0064 

C040 

8D 

01 

DD 

OUTPUT 

STA 

PORTS 

5 OUTPUT DATA 

0065 

C043 

A9 

10 



LDA 

#*10 

;mask for ’fl 

AG’ BIT 








0066 

C045 

2C 

OD 

DD 

TSTBSY 

BIT 

ICR 


0067 

C048 

FO 

FB 



BEQ 

TSTBSY 


0068 

C04A 

AD 

00 

DD 


LDA 

PORTA 


0069 

C04D 

29 

FB 



AND 

#*FB 

j ERASE STROBE 

0070 

C04F 

8D 

00 

DD 


STA 

PORTA 


0071 

C052 

09 

04 



ORA 

#*04 

;SET STROBE 

0072 

C054 

8D 

00 

DD 


STA 

PORTA 
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0073 

C057 

60 




RTS 

0074 

C058 






0075 

C058 

A6 

B8 


OPEN 

LDX 

NUMBER 






0076 

C05A 

FO 

05 



BEQ 

0077 

C05C 

20 

OF 

F3 


JSR 

ILE NUMBER 





0078 

C05F 

DO 

03 



BNE 

0079 

C061 

40 

FE 

F6 

OPNERR 

JMP 

RROR’ 







0080 

C064 

A6 

98 


LB1 

LDX 

EN FILES 






0081 

C066 

EO 

OA 



CPX 

0082 

C068 

90 

03 



BCC 

0083 

C06A 

40 

FB 

F6 


JMP 

LES ERROR 1 






0084 

C06D 

E6 

98 


LB2 

INC 

0085 

C06F 

A5 

B8 



LDA 

0086 

C071 

9D 

59 

02 


STA 

0087 

C074 

A5 

B9 



LDA 

0088 

C076 

09 

60 



ORA 

0089 

C078 

9D 

6D 

02 


STA 

0090 

C07B 

A5 

BA 



LDA 

0091 

C07D 

9D 

63 

02 


STA 

0092 

C080 

09 

02 



CMP 

0093 

C082 

DO 

02 



BNE 

0094 

C084 

18 




CLC 

0095 

0085 

60 




RTS 

0096 

0086 

09 

00 


LB3 

CMP 

0097 

0088 

40 

77 

F3 


JMP 

0098 

C08B 






0099 

COBB 

20 

14 

F3 

CLOSE 

JSR 

OGICAL FILE NUMBER 



0100 

COSE 

FO 

02 



BEQ 

0101 

0090 

18 




CLC 

0102 

0091 

60 




RTS 

0103 

0092 

20 

IF 

F3 

LB4 

JSR 

AMETERS 






0104 

0095 

8A 




TXA 

0105 

0096 

48 




PHA 

0106 

0097 

A5 

BA 



LDA 

0107 

0099 

09 

02 



CMP 

0108 

C09B 

FO 

03 



BEQ 

0109 

C09D 

40 

9D 

F2 


JMP 

NUE 







0110 

COAO 

40 

FI 

F2 

LBS 

JMP 

IN TABLE 






0111 

C0A3 






0112 

C0A3 

20 

OF 

F3 

CHKIN 

JSR 

ILE NUMBER 





0113 

C0A6 

FO 

03 



BEQ 

0114 

C0A8 

40 

01 

F7 


JMP 

EN ERROR’ 






0115 

COAB 

20 

IF 

F3 

LB6 

JSR 


AMETERS 


LF 

5LOGICAL FILE 

OPNERR 


SRCHFL 

5 SEARCH FOR F 

LB1 


*F6FE 

;’FILE OPEN E 

NMBFLS 

5 NUMBER OF OP 

#10 


LB2 


*F6FB 

5’TOO MANY FI 

NMBFLS 


LF 


LFTAB,X 


SA 


#*60 


SATAB,X 


FA 


FATAB,X 


#2 


LB3 



jlDONE 

#0 


*F377 


$F314 

5 

5 SEARCH FOR L 

LB4 



j DONE 

*F31F 

;SET FILE PAR 


FA 


#2 


LB5 


*F29D 

5 NORMAL CONTI 

*F2F 1 

5 ERASE ENTRY 

SRCHFL 

• 

5 SEARCH FOR F 

LB6 


$F701 

5’FILE NOT OP 

SF31F 

5 SET FILE PAR 
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0116 

COAE 

A5 

BA 



LDA 

FA 


0117 

COBO 

C9 

02 



CMP 

#2 


0118 

C0B2 

DO 

03 



BNE 

LB7 


0119 

C0B4 

4C 

OA 

F'7 


JMP 

$F70A 

S’NOT INPUT F 

ILE ERROR 








0120 

C0B7 

4C 

19 

F2 

LB7 

JMP 

$F219 


0121 

COBA 

20 

OF 

F3 

CHKOUT 

a sr 

SRCHFL 

5 SEARCH FOR F 

ILE NUMBER 







0122 

COBD 

FO 

03 



BEQ 

LBS 


0123 

COBF 

4C 

01 

F7 


JMP 

$F701 

5’FILE NOT OP 

EN ERROR’ 








0124 

C0C2 

20 

IF 

F3 

LBS 

JSR 

$F31F 

;SET FILE PAR 

AMETERS 








0125 

C0C5 

AS 

BA 



LDA 

FA 


0126 

0007 

C9 

02 



CMP 

#2 


0127 

0009 

DO 

03 



BNE 

LB9 


0128 

CO OB 

4C 

75 

F2 


JMP 

$F275 


0129 

COCE 

4C 

5B 

F2 

LB9 

JMP 

$F25B 


0130 

COD 1 







5 

0131 

COD 1 

48 



BSOUT 

PHA 



0132 

cr 

C0D2 

AS 

9A 



LDA 

$9A 

5 OUTPUT DEVIC 

fc. 

0133 

C0D4 

C9 

02 



CMP 

#2 


0134 

C0D6 

FO 

03 



BEQ 

LB 10 


0135 

CODS 

4C 

CD 

FI 


JMP 

$F 1 CD 

;NORMAL CONTI 

NUE 









0136 

CODE 

AS 

B9 


LB 10 

LDA 

SA 

SSECONDARY AD 

DRESS 








0137 

CODD 

29 

OF 



AND 

#*0F 


0138 

CODF 

DO 

OA 



BNE 

OUT 

SNOT EQUAL TO 

ZERO 








0139 

COE 1 

86 

97 



STX 

XREG 


0140 

COES 

68 




F'LA 



0141 

C0E4 

AA 




TAX 



0142 

COES 

BD 

F3 

CO 


LDA 

TABLE,X 

5 GET CODE FRO 

M TABLE 








0143 

C0E8 

A6 

97 



LDX 

XREG 


0144 

COEA 

24 




BYT 

$24 


0145 

COEB 

68 



OUT 

PLA 



0146 

COEC 

48 




PHA 



0147 

COED 

20 

40 

CO 


JSR 

OUTPUT 

SOUTPUT CHARA 

CTER 









0148 

COF 0 

68 




PLA 



0149 

COF1 

18 




CLC 



0150 

C0F2 

60 




RTS 



0151 

COF 3 

00 

01 

02 

TABLE 

BYT 

$00,*01,$02 


0152 

C0F6 

03 

04 

05 


BYT 

$03,$04,$05 


0153 

COF 9 

06 

07 

08 


BYT 

$06,$07,$08 


0154 

COFC 

09 

OA 

OB 


BYT 

$09,$0A,$0B 


0155 

COFF 

OC 

OD 

OE 


BYT 

$0C,$0D,$0E 


0156 

Cl 02 

OF 

10 

11 


BYT 

$0F,$10,$11 


0157 

Cl 05 

12 

13 

14 


BYT 

$12,$13,$14 


0158 

C108 

15 

16 

17 


BYT 

$15,$16,$17 


0159 

Cl OB 

18 

.19 

1A 


BYT 

$18,$19,$1A 
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0160 C10E IB 

1C 

ID 

BYT 

*1B,*1C,*1D 

0161 

Cl 11 

IE 

IF 

20 

BYT 

*1E,*1F,*20 

0162 

Cl 14 

21 

22 

23 

BYT 

*21,$22,*23 

0163 

Cl 17 

24 

25 

26 

BYT 

*24,*25,*26 

0164 

Cl 1A 

27 

28 

29 

BYT 

*27,*28,*29 

0165 

Cl ID 

2A 

2B 

2C 

BYT 

*2A,*2B„*2C 

0166 

Cl 20 

2D 

2E 

2F 

BYT 

*2D,*2E,*2F 

0167 

Cl 23 

30 

31 

32 

BYT 

*30,*31,*32 

0168 

Cl 26 

33 

34 

35 

BYT 

*33,*34,*35 

0169 

Cl 29 

36 

37 

38 

BYT 

*36,*37,*38 

0170 

C12C 

39 

3A 

3B 

BYT 

*39,*3A,*3B 

0171 

C12F 

3C 

3D 

3E 

BYT 

*3C,*3D,*3E 

0172 

Cl 32 

3F 

40 

61 

BYT 

*3F,*40,*61 

0173 

C135 

62 

63 

64 

BYT 

*62,*63,*64 

0174 

Cl 38 

65 

66 

67 

BYT 

*65,*66,*67 

0175 

C13B 

6B 

69 

6A 

BYT 

*68,*69,*6A 

0176 

C13E 

6B 

6C 

6D 

BYT 

*6B,*6C,*6D 

0177 

C141 

6E 

6F 

70 

BYT 

*6E,*6F,*70 

0178 

Cl 44 

71 

72 

73 

BYT 

*71,*72,*73 

0179 

C147 

74 

75 

76 

BYT 

*74,*75,*76 

0180 

C14A 

77 

78 

79 

BYT 

*77,*78,*79 

0181 

C14D 

7A 

7B 

7C 

BYT 

*7A,*7B,*7C 

0182 

Cl 50 

7D 

7E 

5F 

BYT 

*7D,*7E,*5F 

01B3 

Cl 53 

60 

61 

62 

BYT 

*60,*61,*62 

0184 

Cl 56 

63 

64 

65 

BYT 

*63,*64,*65 

0185 

C159 

66 

67 

68 

BYT 

*66,*67,*68 

0186 

CISC 

69 

6A 

6B 

BYT 

*69,*6A,*6B 

0187 

C15F 

6C 

6D 

6E 

BYT 

*6C,*6D,*6E 

0188 

Cl 62 

6F 

70 

71 

BYT 

*6F,*70,*71 

0189 

Cl 65 

72 

73 

74 

BYT 

*72,*73,*74 

0190 

Cl 68 

75 

76 

77 

BYT 

*75,*76,*77 

0191 

C16B 

78 

79 

7A 

BYT 

*78,*79,*7A 

0192 

C16E 

7B 

7C 

7D 

BYT 

*7B,*7C,*7D 

0193 

C171 

7E 

7F 

80 

BYT 

*7E,*7F,*80 

0194 

C174 

81 

82 

83 

BYT 

*81,*82,*83 

0195 

C177 

84 

85 

86 

BYT 

*84,*85,*86 

0196 

C17A 

87 

88 

89 

BYT 

*87,*88,*89 

0197 

C17D 

8A 

BB 

8C 

BYT 

*8A,*8B,*8C 

0198 

CISC 

8D 

BE 

8F 

BYT 

*8D,*8E,*8F 

0199 

Cl 83 

90 

91 

92 

BYT 

*90,*91,*92 

0200 

Cl 86 

93 

94 

95 

BYT 

*93,*94,*95 

0201 

Cl 89 

96 

97 

98 

BYT 

*96,*97,*98 

0202 

CISC 

99 

9A 

9B 

BYT 

*99,*9A,*9B 

0203 

C18F 

9C 

9D 

9E 

BYT 

*9C,*9D,*9E 

0204 

Cl 92 

9F 

AO 

A1 

BYT 

*9F,*A0,*A1 

0205 

Cl 95 

A2 

A3 

A4 

BYT 

*A2,*A3,*A4 

0206 

Cl 98 

A5 

A6 

A7 

BYT 

*A5,*A6,*A7 

0207 

C19B 

AS 

A9 

AA 

BYT 

*A8,*A9,*AA 

0208 

C19E 

AB 

AC 

AD 

BYT 

*AB,*AC,*AD 

0209 

C1A1 

AE 

AF 

BO 

BYT 

*AE,*AF,*B0 

0210 

C1A4 

B1 

B2 

B3 

BYT 

*B1,*B2,*B3 

0211 

C1A7 

B4 

B5 

B6 

BYT 

*B4,*B5,*B6 

0212 

Cl AA 

B7 

B8 

B9 

BYT 

*B7,*B8,*B9 

0213 

Cl AD 

BA 

BB 

BC 

BYT 

*BA,*BB,*BC 

0214 

Cl BO 

BD 

BE 

BF 

BYT 

*BD,*BE,*BF 
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0215 

C1B3 

CO 

41 

42 

BYT 

$C0,$41,$42 

0216 

C1B6 

43 

44 

45 

BYT 

$43,*44,$45 

0217 

C1B9 

46 

47 

48 

BYT 

$46,$47,$4B 

0218 

C1BC 

49 

4A 

4B 

BYT 

$49,$4A,$4B 

0219 

C1BF 

4C 

4D 

4E 

BYT 

$4C,$4D,$4E 

0220 

C1C2 

4F 

50 

51 

BYT 

$4F,$50,$51 

0221 

C1C5 

52 

53 

54 

BYT 

$52,$53,$54 

0222 

C1C8 

55 

56 

57 

BYT 

$55,$56,$57 

0223 

C1CB 

58 

59 

5A 

BYT 

$58,$59,$5A 

0224 

C1CE 

5B 

5C 

5D 

BYT 

$5B,$5C,$5D 

0225 

C1D1 

DE 

DF 

EO 

BYT 

$DE,$DF,$E0 

0226 

C1D4 

El 

E2 

E3 

BYT 

$E1,$E2,$E3 

0227 

C1D7 

E4 

E5 

E 6 

BYT 

$E4,$E5,$E6 

0228 

Cl DA 

E7 

E 8 

E9 

BYT 

$E7,$E 8 ,$E9 

0229 

C1DD 

EA 

EB 

EC 

BYT 

$EA,$EB,$EC 

0230 

C 1 E 0 

ED 

EE 

EF 

BYT 

$ED,$EE,$EF 

0231 

C1E3 

FO 

FI 

F2 

BYT 

$F0,$F1,$F2 

0232 

C 1 E 6 

F3 

F4 

F5 

BYT 

$F3,$F4,$F5 

0233 

C1E9 

F 6 

F7 

F 8 

BYT 

$F6,$F7,$F8 

0234 

Cl EC 

F9 

FA 

FB 

BYT 

$F9,$FA,$FB 

0235 

C1EF 

FC 

FD 

FE 

BYT 

$FC,$FD,$FE 

0236 

C1F2 

FF 



BYT 

$FF 


100 FOR I = 49152 
110 READ 
120 DATA 
130 DATA 
140 DATA 


150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 


TO 

X : POKE I,X 
169, 88,160, 
160,192,141, 
141, 30, 3, 

3,140, 


5 J 

141, 2, 

240,251, 
141, 0, 

3, 76, 
246,230, 
157,109, 


49650 

: S=S+X : NEXT 
192,141, 26, 3, 

28, 3,140, 29, 

140, 31, 3,169, 

3,169,209,160, 


169 

221 

173, 

221 , 

254, 

152, 


24, 96,: 
24, 96, 
3, 76,: 
76, l,: 


201 , 
32, 
157, 
247, 
76, 10,247, 
1,247, 32, 
117,242, 76, 
76,205,241, 
170,189,243, 


5, 141 
96,141 
0,221 
96,166 

246.166 

165.184 

165,186 

0, 76 
31,243 

242, 76 
32, 31 
76, 25 
31,243 
91,242 

165.185 

192.166 


1 
41 
184 
, 152, 
, 157, 
157, 
119, 
, 138, 

241, 
,243, 

242, 
165, 

72, 
41, 
151, 


21 , 
221 , 
251 , 
240, 
224, 
89, 
99, 
243, 
72, 
242, 
165, 
3“ 
186, 
165, 
15, 
36 


163, 

192, 

3B, 

221 

44’ 

221 , 

15, 


320 

DATA 

104, 

24, 96, 


1 , 

2 , 

3, 

4, 

5, 


7, 

8 

330 

DATA 

9, 

10 , 11 , 

12 , 

13, 

14, 

15, 

16, 

17, 

18, 

19, 

20 

340 

DATA 

21 , 

22, 23, 

24, 

25, 

26, 

27, 

28, 

29, 

30, 

31, 

32 

350 

DATA 

TT 

5 

34, 35, 

36, 

37, 

38, 

39, 

40, 

41, 

42, 

43, 

44 

360 

DATA 

45, 

46, 47, 

48, 

49, 

50, 

51, 

52, 

53, 

54, 

55, 

56 

370 

DATA 

57, 

58, 59, 

60, 

61, 

62, 

63, 

64, 

97, 

98, 

99, 

100 

380 

DATA 

101 , 

102,103, 

104 , 

105, 

106 , 

107, 

108, 

109, 

110 , 

111 , 

112 

390 

DATA 

113, 

114,115, 

116, 

117, 

118, 

119, 

120 , 

121 , 

122 , 

123, 

124 

400 

DATA 

125, 

126, 95, 

96, 

97, 

98, 

99, 

100 , 

101 , 

102 , 

103, 

104 

410 

DATA 

105, 

106,107, 

108, 

109, 

110 , 

111 , 

112 , 

113, 

114, 

115, 

116 

420 

DATA 

117, 

118,119, 

120 , 

121 , 

122 , 

123, 

124, 

125, 

126, 

127, 

12 B 






- 167 - 






,169,139 
160,192 
141, 32 
3, 140 
9, 4 

13,221 
9, 4 

243,208 
76,251 
185, 9, 96 

2,208, 2 
243,240, 2 

201, 2,240 

243,240, 3 

2,208, 3 

240, 3, 76 

208, 3', 76 

2,240, 3 

134,151,104 


140, 27, 

3,169, 

186,160, 

192,141 
173, 2 

169, 16 

141 , 0 
S 32 

10,144, 

2,165, 

2 , 201 , 

32, 20, 

165,186, 

32, 15, 

186,201, 

15,243, 

201 , 2 , 

154,201, 

208, 10 , 

104, 72, 32, 64,192 
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430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 


DATA 129,130,131,132,133,134,135,136,137,138,139,140 
DATA 141,142,143,144,145,146,147,148,149,150,151,152 
DATA 153,154,155,156,157,158,159,160,161,162,163,164 
DATA 165,166,167,168,169,170,171,172,173,174,175,176 
DATA 177,178,179,180,181,182,183,184,185,186,187,188 


DATA 

189, 

190,191, 

192, 

65, 

66, 

67, 

68, 

69, 

70, 71, 

72 

DATA 

73, 

74, 75, 

76, 

77, 

78, 

79, 

80, 

81, 

82, 83, 

84 

DATA 

85, 

86, 87, 

88, 

89, 

90, 

91, 

92, 

93, 

222,223, 

224 


DATA 225,226,227,228,229,230,231,232,233,234,235,236 
DATA 237,238,239,240,241,242,243,244,245,246,247,248 
DATA 249,250,251,252,253,254,255 

IF S <> 58534 THEN PRINT "ERROR IN DATA!!" : END 
PRINT "OK" 


The cable connecting the printer to the User port has 
following pin layout: 


USER PORT 

- 

CENTRONICS 

A 

GND 

16 

B 

FLAG-BUSY 

11 

C 

DO 

2 

D 

D1 

3 

E 

D2 

4 

F 

D3 

5 

H 

D4 

6 

J 

D5 

7 

K 

D6 

8 

L 

D7 

9 

M 

PA2-STR0BE 

1 


the 
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7.2 Transferring data between computers using the USES port 


Imagine the following: You own, in addition to your 
Commodore 64, a CBM 8032. Wouldn’t it be nice to be able to 
directly transfer data from the 8032 to your 64 where you 
can work with it in color? Or maybe you like to be able to 
send information from the 64 to the 8032, where you can see 
it in 80 columns. You could do this with a cassette, 
assuming you have one, but this is a tedious and bothersome 
process. 

We have chosen this example to illustrate the use of 
the Commodore 64’s USER port, and we have written a small 
program which allows the 64 to both send and receive data. 
In our case, the device to which we will be sending data (or 
from which we will be receiving it) is a CBM 8032. It is 
also possible to use the same procedure for communicating 
with other computers which have an interface similar to the 
user port. 

The programs (one for the Commodore 64 and one for the 
CBM 8032) which will be given shortly naturally require the 
appropriate connection between the two computers. The pin 
assignments and necessary connections can be found following 
the listing. First, however, we will present.a detailed 
account of the variables and memory locations used in each 
of the programs as well as a step-by-step description of the 
programs themselves. 
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The variables (both programs): 

X ASCII value of a sent or received byte 
TI operating system clock; counts in 1/60 second steps 
D$ composite string of data received or to be sent 


Memory locations used on the CBM 8032: 

59457 Data register of the user port 

59459 User port data direction register. As you may already 
know, the user port may be configured as either input 
or output. For this reason, we must specify the data 
direction of each bit. 

59468 Bit 5 of this address controls the CB2 line of the 
user port. When sending, this line will indicate the 
validity of the data. When receiving, this lines 
serves as the acknowledgement signal, indicating that 
the data was received. These signals are required to 
ensure that no data are lost. 

59469 Bit 1 gives the condition of the CA1 line of the user 
port. When sending data, this bit will be monitored 
for the acknowledgement signal of the receiving 
device, while when receiving, it is monitored as the 
data ready or valid signal. 

Memory locations used on the Commodore 64: 

56576 Bit 2 controls the PA2 line of the user port. This 
line is used in the same manner as the CB2 line on 
the CBM 8032 (see description of location 59468). 

56577 User port data register. 
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56579 User port data direction register. 

56589 Bit 4 reflects the condition of the FLAG line on the 
user port. Its use is the same as the CA1 line on the 
8032 (see description of location 59469). 


Program operation: 


1000-1080 

1000 

1010 

1020 

1030 

1040 

1050-1060 

1070-1080 

2000-2090 

2000 

2020-2030 


Send routine 

The data direction register is set to output. 

The length of the send loop is determined by the 
number of bytes to be sent. 

The individual bytes in D$, indexed by I, are 
written to the data register. 

The appropriate signal line is set to zero to 
indicate that the data on the data lines is valid. 
This loop waits until the receiver acknowledges 
reception of the data byte. 

The data valid signal is set back to 1 and the 
next byte is sent. 

The user port is returned to normal and the send 
routine ends. 

Receive routine 

The first data byte is awaited. 

The clock is set to zero and the next statements 
wait until either a data byte is received or two 
seconds have elapsed. If the latter is the case, 
it can be assumed that the data transmission is 
done. The time limit in line 2020 can be changed 
as desired. The 120 refers to 120 l/60ths of a 
second, a total of two seconds. To allow for a 
three second pause, the appropriate value would be 
180. 
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2040-2050 The computer waits for the data valid signal. If 

it is received, the byte in X is added to D$. 
2060-2080 As acknowledgement that the data byte was 

received, the corresponding line is set to zero 

and the loop returns to wait for the next 

character. 

These programs consist only of two subroutines, one for 
sending data and one for receiving it. They should be 
inserted into your own programs. When you want to send 

characters, place them in D$ and GOSUB 1000. To receive 
data, call line 2000 (GOSUB 2000) and upon return, D$ will 
contain the characters received. 

The first listing is for the CBM 8032 and the second is 
for the Commodore 64. They are identical in structure, 
although the addresses of the user ports are different in 
each case. The only other difference occurs in line 2010. In 
consideration for the different way in which the C64 kernal 
operates, a jump must be inserted. 


172 



Tricks & Tips 


8032 version 

995 rent subroutines for transferring data over the user 

port 

996 res CBM 8032 for the 6522 at address 59456 

997 rem 

999 res send a string 

1000 poke 59459,255 : rem set data direction to output 
1005 poke 59468,peek(59468) or 224 : rem cb2 high 
1010 for i=l to len(d$) : rem send loop for d$ 

1020 x=asc(mid$(d$,i,1)) : poke 59457,x : rem output data 
1030 poke 59468,peek(59468) and 223 : rem cb2 low 
1040 wait 59469,2 : rem wait until data received 
1050 poke 59468,peek(59468) or 224 : rem cb2 high 
1060 next 

1070 poke 59457,0 : poke 59459,0 : rem reset port 
1080 return 
1996 rem 

1397 rem receive data into d$ 

1998 rem 

1999 rem 

2000 wait 59469,2 : rem wait for start of data transmission 
2010 d$="" : rem initialize d$ 

2020 ti$="000000" 

2030 if ti>120 then 2090 

2040 if (peek(59469) and 2)=0 then 2030 : rem wait for 

data byte 

2050 x=peek(59457) : d$=d$+chr$(x) 

2060 poke 59468,peek(59468) and 223 : rem cb2 low 
2070 poke 59468,peek(59468) or 224 : 

rem cb2 high = receive confirmation 
2080 goto 2020 
2090 return 
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Commodore 64 version 

995 rem subroutines for transferring data over the user 

port 

996 rem CBM 64 version for 6526 at address 56576 

998 rem 

999 rem send a string 

1000 poke 56579,255 : rem set data direction to output 
1010 for i=l to len(d$) : rem send loop for d$ 

1020 x=asc(mid$(d$,i,1)) : poke 56577,x : rem output data 

1030 poke 56576,147 : rem pa2 low 

1040 wait 56589,16 : rem wait until data received 

1050 poke 56576,151: rem pa2 high 

1060 next 

1070 poke 56577,0 : poke 56579,0 : rem reset port 
1080 return 

1996 rem 

1997 rem receive into d$ 

1998 rem 

1999 rem 

2000 wait 56589,16 : rem wait for start of transmission 
2010 d$="" : goto 2050 : rem initialize d$ 

2020 ti$=”000000" 

2030 if ti>120 then 2090 

2040 if (peek(56589) and 16)=0 then 2030 : rem wait for 

data byte 

2050 x=peek(56577) : d$=d$+chr$(x) 

2060 poke 56576,147 : rem pa2 low 

2070 poke 56576,151 : rem pa2 high = receive confirmation 
2080 goto 2020 
2090 return 
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A short example will clarify the use of these routines: 

Assuming that you have loaded the appropriate routines 
into both computers, add the following line to the sender 
routine: 

10 D$="test" : GOSUB 1000 : END 
and the following to the receiver 

10 GOSUB 2000 : PRINT D$ : END 

Start both programs and watch what happens (assuming both 
computers are connected properly). 

The diagram below shows the construction of the 
connecting cable. We recommend a 10-wire shielded cable. The 
shield is connected to the GND pin on both sides. It is best 
to limit the length of the cable to no more than 15 feet. If 
a longer cable is required, line drivers may have to be used 
to insure that no data is lost during transmission. Noise 
created by electric motors (washing machine, vacuum cleaner) 
or other large electrical devices can scramble the data 
being transmitted. You should have no problems at all if the 
length is kept under 10 feet. Ten feet should also be 
considered an absolute maximum when using an unshielded 
cable. 
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7.3 The CP/M cartridge on the expansion port: A case study 

In this section, we describe how a clever piece of 
hardware can make optimal use of the expansion slot on the 
Commodore 64. For a better understanding of the material 
that we present, a knowledge of the material in the 
corresponding chapter of our book The Anatomy of the 
Commodore 64 is an advantage. 

First of all, what it is the CP/M cartridge? 

The CP/M cartridge is a module developed by Commodore 
which contains a Z-80 microprocessor and the necessary logic 
to communicate with the C64. The module makes it possible to 
use the popular CP/M operating system on the 64 and so gain 
access to the wide range of software available for CP/M. 

The topic we wish to examine more closely is the 
technique of using two processors in the same computer. At 
the end of this section you will find a block diagram of the 
CP/M cartridge. Not all of the connections are shown in 
order to keep the diagram as simple as possible. The 
following discussion centers around this diagram and 
presents the function groups together with their 
designations. We have tried to make this discussion simple 
enough so that you need not be a hardware expert in order to 
understand it. 

First, we present a description of the expansion port 
lines which play a role in this context: 

CDO-7 System bus data lines. 

These can be controlled by the 6510 within the 64 
only as long as DMA=1 and BA=1. 
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He should make note of this condition, since it is 
necessary for further progress. 

CAO-15 System bus address lines. 

The above conditions apply to these lines as well. 
1/01 This line is low whenever any activities take place 
in the address range $DE00-$DEFF (56832-57087). 

RES When this line is low (usually only when the computer 
is first turned on), all connected hardware devices 
are reset. 

DMA This line is an input. Setting it to zero halts the 
6510, leaving the system bus free for external 
control. 

BA The 64’s video controller uses this line to signal 
that it is accessing the memory (BA=0). During this 
time, the system bus may not be used by the 6510 or 
any other device. 

S02 This is the system clock which coordinates all of the 
operations within the 64. In order to execute all 
activities in synchronization with the 64, the Z-80 
in the CP/M module is also controlled by this clock. 

He begin our description of the additional processes 
with the reset state, the condition of the device after 
being turned on. First we need an explanation of a line on 
the Z-80, BUSREQ. This signal has the same operation as the 
AEC (activated by DMA=0) on the 6510. If BUSREQ=0, the Z-80 
ceases all activities and leaves its system bus free. 

When the device is turned on, the RES line is set low 
for a short time, resetting the Z-80 and the FF flip-flop 
(Q=0, -Q=l). This has the effect of setting the output of 
the AND gate to zero, independent of BA. This in turn 
inhibits the Al, A2, and D buffers, preventing the Z-80 
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system bus from being externally controlled. BUSREQ is also 
held low, effectively inhibiting the Z-80 processor. 

You can see now that the operation of the module 
depends on the condition of the flip-flop FF in combination 
with the signal BA (combined through the AND gate &). Only 
when FF is set (Q=l, -Q=0) and BA=1 does BUSREQ=1, allowing 
the Z-80 to operate. You can use your 64 as usual, provided 
you do not execute a certain command, namely POKE 56832,1. 

As you can gather from the block diagram and the 
description of expansion port, this poke activates the line 
1/01. Poking the value 1 sets our flip-flop FF and allows 
the Z-80 to run free, since BA=1 most of the time. At the 
same time, the 6510 is switched off and the computer will 
probably crash because there is no program in memory which 
will make any sense to the Z-80. 

At this point we come to our next theme: Where must a 
program be so that the Z-80 can execute it? To find this 
out, we must dig a bit deeper. In contrast to the 6510, the 
Z-80 begins execution at location 0 after reset (RES=0). 
Here we have a conflict since the 6510 has its I/O port at 
location 0 and the following locations are the zero page, a 
section of memory absolutely required by the processor 
because the important system parameters are stored there. A 
Z-80 program simply cannot be stored at this point. On the 
other hand, we cannot change where the Z-80 will begin its 
execution. 

The CP/M module solves this dilemma quite elegantly. If 
you take a look at the block diagram, you will find a 
function block which we have labeled ADD. This function 
block contains a four-bit full adder. The adder accepts two 
4-bit words as input, adds them, and places the sum at its 
outputs. In our case, the adder is connected to the four 
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highest-order bits of the address. One input is connected to 
the address lines of the Z-80 and the other is permanently 
set at 0001. The result is that the top four address bits 
are incremented by one. This has the net effect of 
increasing the total address by $1000 (4096) because the 
most significant digit of a two-byte address counts in 4K 
increments. 

To return to our example, when the Z-80 outputs address 
zero in order to fetch the first command, it actually 
accesses address $1000 (4096). There, a program intended for 
the Z-80 can be placed without disturbing the operating 
system of the 6510. Using this scheme, a Z-80 address of 
$F000 (61440) corresponds to an effective address of 0, 
since the carry produced by the addition is ignored. 

This procedure is essentially the same as the real 
operation of the module: After turning the computer on, a 
small start program is loaded into memory (at $1000 of 
course) and after setting the flip-flop FF, the Z-80 takes 
over and executes the program which loads the CP/M operating 
system. You should use this procedure when you want to 
execute Z-80 programs of your own. Simply place the program 
you have written at location $1000 (4096) and switch the 
cartridge on as described. 

Since such a program is not an end in itself, but will 
have some output, whether to the screen or on the printer, a 
good knowledge of the Commodore 64*s hardware is 
indispensable so that you can execute the appropriate 
functions from the Z-80 program. Remember that all addresses 
referenced from the module are offset by 4096. To send data 
to the user port, for example, you should use the address 
$CD01 (52481) in your Z-80 program because the user port is 
located at address $DD01 (56577) in the 6510 mode. 
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How does one return from the Z-80 mode? If the BASIC 
interpreter is loaded, you can reset FF by entering POKE 
52736,0. This has the additional effect of setting BUSREQ to 
0, halting the Z-80 while setting DMA to 1, whereupon the 
6510 resumes execution at the point at which it left off. 

The address must actually be 4096 less than the 6510 
address since this value will be added back in by ADD. It is 
not recommended to proceed in this manner, however, since 
the 6510 will not find a program which it can run upon 
return since the memory contains programs intended for the 
Z-80, and the computer will crash. 

BA is only a help signal which controls the traffic on 
the bus. It has a profound effect on the CP/M module, 
however, since the Z-80 halts execution whenever BA=0 or the 
output of FF is zero. If we take a closer look at the origin 
of BA, we will discover why this is so. 
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BA is a signal created by the video controller in the 
Commodore 64. Because the video controller must access the 
video RAM cyclically for refreshing the screen, the system 
bus must not be used by any other device. Normally this does 
not require halting the usual bus traffic; the video 
controller makes use of the "holes" in the microprocessor 
access cycles during which the processor is not using the 
system bus. There are exceptions, however, such as when the 
sprites are being displayed. Here these holes will not 
suffice since the memory must be accessed several times in 
succession. The video controller signals this condition by 
setting BA to zero and all other devices (including the Z-80 
and the 6510) must give up the bus. 


We have purposely kept the block diagram on the next 
page simple although the circuitry in the area of data 
buffer D is more complex than that shown. It is sufficient 
however to explain to explain the interaction between the Z- 
80 and the 6510. 
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7.4 Synthesizer in stereo 

If you use the synthesizer in your Commodore 64 often, 
you have probably wished for something better than the tinny 
sound of your TV speaker. With the help of a stereo receiver 
or amplifier we can produce considerably better sound. 
Because the stereo has two channels at its disposal, we must 
consider how to divide the single-channel output of the 
synthesizer between them. Unfortunately, the individual 
voices of the device do not have separate outputs, or we 
could make the division easily. 

We have made certain allowances, however, and have 
divided the tone signal into two frequency ranges. The 
division occurs at 300 Hz. This splits the range of the 
synthesizer nearly in the middle as far as the ear is 
concerned, with three octaves below (down to 36 Hz) and four 
octaves above (up to 4800 Hz) 300 Hz. 

This is accomplished with two double-T filters with an 
attenuation of 6dB/octave and a cut-off frequency of 300 Hz 
(low pass) and 3 kHz (high pass). You can change the cut-off 
frequencies as desired by using different capacitors, but 
you should leave the values of the resistors as they are 
since they were calculated to match the impedance of the 
connected device. 

Given the cut-off frequency, the required value of the 
capacitor can be found with the formula C=1/(3300*F). If you 
have some capacitors already and want to know what cut-off 
frequency they would give, use the formula F=1/(3300*C). The 
values that we have chosen are optimized for this project 
based on numerous measurements and listening tests. 

If an attenuation of 3dB/octave is good enough for you, 
the components R2, C2, C4, and R6 can be eliminated. This 
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will result in a greater acoustical overlap between the two 
speakers. As you see, the filter circuit is extremely 
simple. It can be constructed on a piece of perfboard. 

We now want to present a program which will produce a 
"sweep" using the triangle wave. This will allow you to 
clearly hear how the tone moves from one speaker to the 
other. We have chosen the triangle wave because it is 
relatively free of overtones and will allow the effect to 
noticed better. With more complex sounds, rich in overtones, 
such as the sawtooth, the overtones will appear on one 
channel while the fundamental wave will be heard on the 
other, provided that the fundamental does not exceed 300 Hz. 
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10 Vl=54272 
20 V2=54279 
30 V3=54286 
60 RS=54295 
70 PL=54296 

80 POKE Vl+4,0 : POKE V2+4.0 : POKE V3+4.0 

100 A=9 : D=9 : S=9 : R=9 : H=30 

110 POKE RS,0 : POKE Pi,16 

120 POKE V3+5,16*A+D : POKB V3+6,16*S+R 

130 POKE V3+4.17 

140 FOR 1=0 to H : POKE V3+1,PEEK(54300) : NEXT I 
150 POKE V3+4,16 

160 FOR 1=0 to R*4 : POKE V3+1,PEEK(54300) : NEXT I 


Here is the schematic diagram for the filter. The 
side is intended to be connected to the phono input. 


C 64 R1 A3 STS-KGo 



stereo 
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Chapter 8 : Data Management 


8.1 Introduction 

The effective and efficient management and processing 
of data is one of the most basic themes in computing. All 
programs do it to some degree, but programs designed 
specifically for storage and retrieval of large quantities 
of various data are among the most complex in programming. 
It is the same in BASIC, FORTRAN, Pascal or other 
languages—data management, and everything else that has to 
do with data, is a very important problem. One would 
therefore expect that computer manuals or programming books 
would provide detailed information about this topic. 
Unfortunately, these books discuss data management only very 
briefly, it at all. 

In this chapter we want to give you some insight into 
data management on the Commodore 64. We will not merely 
present dry theory, but we will also present examples which 
will hopefully allow you to understand your Commodore 64 
better and to use it more effectively. First, however, we 
must begin by clarifying a few fundamentals of data 
management. 


FILE 

The whole world talks about data processing and files-- 
but what actually are files? The easiest way to clarify this 
term is to replace it with another, one which everyone is 
familiar with: CARD CATALOG. As you know, a card catalog, 
such as those found in libraries, consists of a number of 
filing cards. On these cards is information concerning a 
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particular item or person. The cards must be organized 
according to a specific pattern. The most common method of 
organization is alphabetic sorting. Another possibility is 
sorting by the item number or some other datum. All of the 
cards together make up a card catalog. A file uses the same 
principle. A file consists of a number of data records which 
contain the individual pieces of information—just like a 
filing card. 

The great advantage of a data file over a card file is 
the amazing flexibility of the data file. The time savings 
when searching and sorting are most important, but the space 
savings also plays a large role today. Microcomputers can 
now be equipped with millions of characters of data storage. 
Can you imagine how many filing cards would be required to 
store so much information? 

DATA RECORD 

As we mentioned before, a data record can be compared 
to a filing card in a card catalog. Within this data record 
are all the data that would be on the filing card, divided 
into one or more FIELDS. 


FIELD 

Here too we can use the example of the card catalog. If 
you can picture a data record as a filing card, then the 
fields are the individual lines of information on the card. 
The association between the three concepts can be thought of 
approximately as: 

FILE -> DATA RECORD -> FIELD 
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When one wants certain information about a thing or a 
person, such as the name, the appropriate file must first be 
accessed, then the data record from this file, and finally 
the appropriate field from the data record. This can be 
represented graphically as follows: 

FILE: ADDRESSFILE 



FIELD 

LAST 

FIELD 

FIRST 

FIELD 

STREET 


FIELD 

CITY 


FIELD 

ZIP CODE 

Rec: 1 

Jones 

Tom 

123 Main 

St. 

Anytown, 

AZ 

55555 

Rec: 2 

Smith 

John 

456 Park 

PI. 

Nowhere, 

CA 

86521 

Rec: 3 

Green 

Joe 

789 Kings 

Ct. 

CBM City, 

TX 

68513 


In this example one can clearly see the differences and 
relationships between file, data record, and field. These 
terms should be well understood before one begins writing 
data management programs. We will now move on to various 
access and storage methods, but the basis for this 
presentation will be the material we have discussed so far. 
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8.2 Cassette - Diskette 

After this somewhat lengthy introduction we Want to 
actually write data management programs. We should first 
examine the devices which are at our disposal for storage on 
the Commodore 64: the datasette and disk drive. 

How are these two devices and their media different? 
How can they be used? In order to clarify these questions we 
will first make an excursion into the beginnings of data 
processing. 

Not so many years ago, terms such as "floppy" or 
"magnetic platter" were unheard. But even then one could not 
do without some sort of storage medium, a device that could 
save and recall data. Punch cards were developed for this 
purpose. Kith these one had a simple and cost-effective 
means of saving and retrieving data. A serious disadvantage 
of the devices required for working with the punch cards, 
the card puncher and reader, soon became apparent. Both were 
purely mechanical devices and far too slow. Faster and more 
reliable storage devices have always been in demand, so 
something better had to be developed. The result was the 
magnetic tape, which we can compare to the present cassette, 
since the principle is much the same as that used by the 
much larger reel-to-reel tape drives used on mainframe 
computers. 

The principle of the cassette as storage medium is 
really quite simple. The Commodore 64 has a specific device 
assignment for the cassette, device number 1. The command 
for writing is also 1. To open a file on the cassette 
recorder, the following command might be used: 

OPEN 1, 1, 1, "CBM 64 FILE" 
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The first "1" is the file number for the Commodore 64. If 
you want to open several files on the 64, you must choose 
different file numbers for the printer, cassette, and disk 
drive. The file number must be an integer from 1 to 255. 
When the record and play buttons on the cassette recorder 
are pressed, the Commodore 64 will write a special leader on 
the tape. This leader contains only the file name for a data 
file but can also include the start address if a program is 
being saved. This so-called program or file header is saved 
twice, after which the tape is stopped. At this point, data 
(or the program) can be saved. 

The following sequence offers an additional possibility 
for saving a file: 

OPEN 1, 1, 2, "CBM 64 FILB" 

When you use this command, the computer will write one 
additional piece of information to the tape after the file. 
This information, called the EOT (End Of Tape), when 
encountered in a subsequent read, tells the computer that 
the tape ends at that point. 

Once saved, data will be read in again at some time. 
The corresponding command is: 

OPEN 1, 1, 0, "CBM 64 FILE" 

The Commodore 64 will search for a particular file until it 
finds it or until it encounters an EOT marker. 

IMPORTANT: When writing, the 64 does NOT search for a 

file with the given name. It writes without regard for any 
existing data at the exact point on the tape that it finds 
itself. For this reason, it is best to store only one file 
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per cassette in order to prevent unintentional destruction 
of other data or programs. 


After a while, magnetic tapes no longer sufficed (we 
will discuss the reasons why later), so the storage 
techniques were refined. Magnetic platters were used. Here 
too the Commodore 64 has a similar method of storage 
available. Here one can connect one or more devices called 
disk drives. The corresponding medium, the diskette, can be 
compared to a phonograph record. On both media there are 
various "tracks,” although all of the material on the 
diskette is magnetic and therefore the tracks are invisible. 
This allows the "record" to not only be read from but also 
written to. The syntax of the command for writing or reading 
a file using the disk looks like this: 

OPEN 2, 8, 2, "0:CBM 64 FILE.S.W" 

or 

OPEN 2, 8, 2, "0:CBM 64 FILE.S.R" 

The first "2" is again the internal file number, "8” is the 
usual device number for a disk drive (but it can also be 9- 
12), and the second "2" is the channel number. The most 
interesting part, however, is the name. Here we find first 
the number of the disk drive (0 or 1), then the filename, 
then an "S" for "sequential file" (more about this later), 
and finally either a "W" for write or an "R" for read. 
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The most important differences between disk and 
cassette storage consist of 

-Cost 

Based on the initial purchase price, the cassette 
recorder is by far the cheaper storage medium, even 
though the price of the disk drive has come down 
dramatically and one can purchase a VIC-1541 for under 
$250 Another cost factor is the price of the actual 
storage media. For example, in order to store the 
170,000 characters which will fit onto a single disk 
in the Commodore VIC-1541, one would need four C-60 
cassettes. Here the cassette recorder offers no price 
advantage. 

-Access time 

Here the advantages of the disk are shown most 
clearly. For instance, reading a 10K program from a 
cassette requires 200 seconds, but only 20 for the 
VIC-1541 disk drive. To read a file consisting of 50 
addresses, each 100 characters long, requires 180 
seconds with a cassette recorder, while the disk drive 
requires only 18 seconds. 

-Access methods and ease of programming and operation 
While the cassette recorder allows only programs and 
sequential data files to be stored, the disk offers 
many more possibilities through its ability to make 
use of relative files (random access) and direct 
access. In addition, the disk is much easier to use. 
One need only give the disk drive the name of program 
to be saved, and the drive will find free space on the 
disk and save the program there. 
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It should now be clear that the cassette recorder is a 
low-cost device for the beginner or light user. Anyone who 
wants to use his computer for commercial purposes will 
require a disk drive. 

Next, we will take a look at the under-lying technical 
principles of data storage on the cassette and then turn to 
the individual access methods and file forms. 
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The datasette, or HOW DO THE BITS GET ON THE TAPE? 

Now that we have clarified the principles behind files 
(and you have hopefully understood then), we want to explain 
how the information is actually placed on the tape. The 
discussion will become a bit technical, but you may find the 
information useful nonetheless. 

The method Commodore uses for representing the 
information (bits) on the cassette tape is called PPM or 
Pulse Position Modulation. This means that the Commodore 64, 
just like its other Commodore brothers, writes the digital 
signals directly, and not in the form of tone frequencies, 
to the tape. These digital signals are transmitted in three 
different lengths: short (S), long (L), and medium (M). From 
these three lengths, three different combinations are 
formed, which have the following meanings: 

LLMM = BYTE ; this combination precedes every byte 
MMSS = 1 
SSMM = 0 

The letter "A" would be represented on the tape in the 
following form: 

LLMM MMSS SSMM SSMM SSMM SSMM SSMM MMSS SSMM MMSS 

BYTE 100000101 

BIT# 01234567 parity ODD 

The format of the whole program or file on the tape looks 
like this: 


Programs 


Data files 
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Program header 
Start & end addresses, name 
Program header (again) 
Program (a block) 

Program (again) 

End block 


File header 
Name 

File header (again) 
Data block 
Data block (again) 
End block 


The header is constructed as follows: 


Programs 


Data files 


Start address (xxxx) 

End address (xxxx) 

Program name (16 characters) 
Padding chars, (for prg. name) 


Start address (0000) 
End address (0000) 
Filename (16 chars.) 
Padding chars, (for 
filename) 


A block consists of: (programs and data files) 


approximately 2 seconds of leader 


9-byte count down ($89 $88 $87 $86 $85 $84 $83 $82 $81) 
for first block 


($09 $08 $07 $06 $05 $04 $03 $02 $01) 
for repetition 


data 

checksum (EXOR checksum for all data) 
end marker (LLSS SSSS SSSS SSSS SSSS) 
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approximately 0.16 seconds of trailer 


As we mentioned before, the method of representation is 
the same for all of the Commodore computers. The problem 
with exchanging data between the Commodore 64 and VIC-20 
lies only in the different clock frequencies used. The 
system clock of the VIC-20 runs faster than that of the CBM, 
while the system clock of the CBM runs faster than that of 
the Commodore 64. In practice, this means that VIC-20 and 
Commodore 64 programs can be run on the larger CBM’s, but 
that a VIC-20 program cannot be directly loaded into a 
Commodore 64, and vice versa. If you want to exchange 
cassettes between these two computers, you must make a 
detour through a CBM. The procedure would be something like 
this: 

You have a cassette which contains one or more VIC-20 
programs or files which you want to transfer to your 
Commodore 64. In order to do so, you first take a ordinary 
datasette and connect it to a CBM or PET computer and load 
the first program (or file) as usual, Then take a new 
cassette and exchange it for the VIC-20 cassette in the 
recorder. Now save you program (or file) onto the tape with 
the usual commands. If you have more than one program or 
file, repeat this procedure until you are done. 

After all of the programs have been transferred, or 
perhaps it would be better to say converted, you have a 
cassette which can be used on both the VIC-20 and the 
Commodore 64. Under certain circumstances you may have to 
make some changes to the program, such as adapting it to the 
64’s 40x25 screen size, changing some. POKE’S, etc. 
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8.3 The principle behind data management: Sequential files 

We have occupied ourselves in detail with the "history" 
of storage media. Now we shall turn our attention to the two 
most recent storage media, the tape and disk drives. In this 
section, we will concentrate on the sequential method of 
data access. 

Sequential means "one after the other." This is exactly 
the way we find individual data records in the file. It can 
be compared with the selection of a piece of music with the 
aid of a cassette recorder. You fast-forward or rewind the 
tape to the specific place at which the piece is recorded 
and then press the play button. When working with sequential 
files, either on tape or disk, there is one additional 
limitation. It is like having a tape recorder with a fast- 
forward and a rewind-to-start-of-tape button. If we want to 
hear the piece of music again, or make another pass through 
our data, we must go back to the beginning of the tape and 
fast-forward to the desired spot again. 

It works much the same way with data storage on the 
tape. When you save some data, you must make note of the 
counter position so that you can find the same spot on the 
tape later when you wish to read the data back in. You can 
use the fast-forward and rewind buttons to aid in finding 
the data. In spite of this, it is somewhat problematical to 
search through a file for a specific data record. If you 
have a file full of addresses, and you search for the name 
SMITH, it may happen that there is more than one SMITH in 
the file. Often, you cannot always make note of the counter 
position (in addition, we want to do without such manual 
work, otherwise we might just as well use filing cards). We 
must find some other way. We rewind the tape to the 
beginning, open the file for reading and then go through 
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record by record until we have read the correct SMITH. 
Naturally, this has certain time expenses: with 2000 records 
in a file one can have a nice cup of coffee or walk the dog 
while the file is being processed. But one can still use the 
cassette recorder for working with small amounts of data, 
especially since it is very cost-effective for such 
applications. 

Those who own cassettes but who would like to process 
their data quickly and efficiently should make use of the 
following procedure: Form all of your files such that they 
will fit into the free memory of the Commodore 64. Before 
you change, erase, insert, or simply display any of the data 
in the file, load the whole thing into memory from the 
cassette. Now the data accesses are not dependent on the 
speed of the cassette, rather, you can make use of the 
processing speed of your computer. When you are done working 
with the file, save the entire file back to tape. This 
simple and effective procedure can also be used for larger 
files. For example, you can divide an extensive address file 
into groups of names, one tape for those whose last names 
start with A-C, another for D-F, and so on, so that the 
parts each fit into the 64’s memory. With some skill and 
organization a tape recorder can be used to manage a large 
amount of data. 

When the process of data storage is presented 
figuratively, one can easily see why only sequential files 
are possible on the cassette recorder. All data are saved 
one after the other and read back into the computer in the 
same way. 

Sequential files are also available as a method of data 
storage on the disk drive. Sequential files can be found 
quickly and directly without searching since the drive 
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maintains a directory of the disk’s contents and where the 
files can be found. This allows you to escape the tedious 
searching necessary with the cassette recorder. 

How do we handle a sequential file on the Commodore 64? 
First we must open the file. We need the file number, device 
number, channel number, and filename. Once we have opened a 
file, we can read or write in the file with one command, but 
never both at once. 

Without doing something additional we cannot write to a 
file which already exists. If, for example, you open the 
file "CBM 64 FILE" with the command 

OPEN 2, 8, 2, "0:CBM 64 FILE,S,W" 

and a file with the same name already exists on the 
diskette, you will receive the error message FILE EXISTS. 
The command must therefore be modified by placing an at-sign 
("@") in front of the drive number. The command is then 
worded 


OPEN 2, 8, 2, ”@0:CBM 64 FILE.S.W” 

and will cause any existing file with the same name to be 
overwritten. 

This is important because even with a disk, no data can 
be changed in an existing sequential data file. To change 
any data, the file must be read into memory in its entirety, 
and after making the changes it must be rewritten to the 
diskette. Those who wish to use sequential files with the 
disk instead of the direct access files available should use 
the procedure described for use with the cassette recorder. 
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Sequential files on the disk drive offer a 
substantially higher rate of access and data transfer speed 
as well as automated operation. The disk offers yet another 
advantage, namely the ability to APPEND to a sequential 
file. This ability to append is very useful because it means 
that you do not have to read all of the data into the 
Commodore 64 and then write it back again in order to simply 
add new data to an existing file. A simple change of the 
OPEN command allows you to append data to the end of a 
sequential file. The OPEN command looks like this: 

OPEN 2, 8, 2, "0:CBM 64 FILE,S,A” 

Now all data written to the file will be added to the end. 

This append option is unfortunately unavailable on the 
cassette drive. You must read in all of the data, then write 
it back out again, and finally add the new data before 
closing the file. It should now be obvious why we said that 
data management is far more convenient with the disk than 
with the cassette. 

Following, you will find a set of model programs for 
simple sequential data management on a cassette or disk 
drive. The individual programs can be easily modified for 
your own uses. First the cassette version. 
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1. Writing the data 

10 REM ************************************ 
20 REM WRITING FIRST AND LAST NAMES TO TAPE 
30 REM VERSION FOR DATASETTE / COMMODORE 64 
40 REM ************************************ 
50 PRINT CHR$(147) : REM ERASE SCREEN 
52 PRINT "OPENING FILE FOR WRITING" 

54 PRINT 

56 OPEN 1,1,1,"CBM 64 FILE" 

60 INPUT "LAST NAME : ";LN$ 

70 INPUT "FIRST NAME : ";N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = ";LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 
120 PHINT#1,LN$ 

130 PRINT#1,N$ 

140 PRINT 

150 INPUT "MORE (V/N) ";YN$ 

155 PRINT 

160 IF YN$="Y" THEN 60 
170 IF YN$="N" THEN 200 
180 PRINT "INVALID INPUT!" 

190 GOTO 140 
200 CLOSE 1 
210 END 


This program will save a desired number of first and 
last names to tape. Note that this program can only be used 
with a cassette recorder. The next program is the "opposite” 
of the first. It reads the data into the 64 and displays it 
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on the screen (or printer). Before running this program you 
must rewind the tape to the start of the file you created 
with the above program. 


2. Reading the data 

10 REM ************************************** 
20 REM READING FIRST AND LAST NAMES FROM TAPE 
30 REM VERSION FOR DATASETTE / COMMODORE 64 
40 REM ************************************** 
50 PRINT CHR$(147) : REM BRASE SCREEN 
52 PRINT "OPENING FILE FOR READING" 

54 PRINT 

56 OPEN 1,1,0,"CBM 64 FILE" 

60 INPUT#1,LN$ 

70 INPUT#1,N$ 

80 IF ST AND 64 THEN 130 : REM END OF FILE? 

90 PRINT "READING - LAST NAME = ”;LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 
120 GOTO 60 

130 PRINT "END OF FILE - LAST NAME = ";LN$ 

140 PRINT " - FIRST NAME = ";N$ 

150 CLOSE 1 
160 END 


202 



Tricks & Tips 


This program reads all of the data previously saved by 
the first program and then displays it on the screen. If you 
want to send the data to the printer instead of the screen, 
you must change a few lines: 

58 OPEN 4,4 

90 PRINT#4,"HEADING - LAST NAME = ";LN$ 

100 PRINT#4," - FIRST NAME = ";NS 

110 PRINT#4 

130 PRINT#4,"END OF FILE - LAST NAME = "j LN$ 

140 PRINT#4," - FIRST NAME = ";N$ 

155 CLOSE 4 


There is yet another possibility, namely the addition 
of data. As we mentioned earlier, there is no simple way to 
append data to the end of a cassette-based sequential file 
as there is for such file on disk. The file must be read 
into memory in its entirety, the tape rewound, the file 
opened again for writing, and the previously read data 
written back to the tape. At the end you may add the new 
data. The same procedure would also allow you to change or 
erase individual data. 
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3. Adding data 

10 REM ************************************ 

20 REM ADDING FIRST AND LAST NAMES TO TAPE 
30 REM VERSION FOR DATASETTE / COMMODORE 64 
40 REM ************************************ 

60 PRINT CHR$(147) : REM CLEAR SCREEN 
52 PRINT "OPENING FILE FOR READING" 

54 PRINT 

56 OPEN 1,1,0,"CBM 64 FILE" 

60 DIM LN$(100),N$(100) : 1=1 : REM 100 NAMES MAX. 
70 INPUT#1,LN$: LN$(I)=LN$ 

80 INPUT#1,N$ : N$(I)=N$ 

90 IF ST AND 64 THEN 130 
100 IF 1=100 THEN 130 
110 1 = 1+1 
120 GOTO 70 
130 EN=I 
135 PRINT 

140 PRINT "PLEASE REWIND THE TAPE." 

150 PRINT 

160 INPUT "DONE (Y/N) ";YN$ 

170 IF YN$="N" THEN 130 
180 IF YN$="Y" THEN 210 
190 PRINT "INVALID INPUT!" 

200 GOTO 150 

210 PRINT "OPENING FILE FOR APPENDING" 

220 PRINT 

230 OPEN 1,1,1,"CBM 64 FILE" 

240 FOR 1=1 TO EN 
250 PRINT#1,LN$(I) 

260 PRINTfl,N$(I) 

270 NEXT I 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


PRINT "ADD DATA:" 

PRINT 

INPUT "LAST NAME : "; LN$ 
INPUT "FIRST NAME : N$ 

PRINT 

PRINT "WRITING - LAST NAME 
PRINT " - FIRST NAME 

PRINT 

PRINT#1,LN$ 

PRINT#1,N$ 

PRINT 

INPUT "MORE (Y/N) ";YN$ 

IF YN$="Y" THEN 300 
IF YN$="N" THEN 440 
PRINT "INVALID INPUT!" 

GOTO 380 
CLOSE 1 
END 


”; LN$ 
"JN$ 


Now you have a small address manager. To be sure, it 
Lacks the addresses yet, but anyone with a bit of experience 
in programming will be able to expand the program to include 
this. 


We shall now turn to sequential file management on the 
disk drive. Here too we will offer the three examples which 
we gave for the datasette. This will allow you to compare 
and contrast the two. 
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1. Writing the data 

10 REM ************************************ 

20 REM WRITING FIRST AND LAST NAMES TO DISK 
30 REM VERSION FOR VIC-1541 / COMMODORE 64 
40 REM ************************************ 

50 PRINT CHR$(147) : REM CLEAR SCREBN 
52 PRINT "OPENING FILE FOR WRITING" 

54 PRINT 

56 OPEN 2,8,2,"CBM 64 FILE.S.W" 

60 INPUT "LAST NAME : ";LN$ 

70 INPUT "FIRST NAME : ";N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = ";LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 

120 PRINT#2,LN$ 

130 PRINT#2,N$ 

140 PRINT 

150 INPUT "MORE (Y/N) ";YN$ 

155 PRINT 

160 IF YN$=”Y" THEN 60 
170 IF YN$="N" THEN 200 
180 PRINT "INVALID INPUT!" 

190 GOTO 140 
200 CLOSE 2 
210 END 

Exactly as the previously-described program for the 
datasette, this program writes any number of first and last 
names to the diskette in sequential form. Naturally, this 
works only until the diskette, or better, the file space, is 
full. It requires a large amount of data to fill up a 
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diskette, but one should still take care in programming that 
no error or program crash will occur when the disk is full. 
So that you receive the full impression of the capacity of 
the disk, we want to show you a small example: 

The VIC-1541 disk drive can store a total of 174,848 
bytes (characters) on a diskette. We can use the following 
amounts for files: 

Sequential files : 168,656 characters 
Relative files : 167,132 characters 

A maximum of 144 programs and files can be saved. 

Let’s assume that we have written a complete address 
manager. For the sake of example, assume our program expects 
the following data: 


Field Length 


Number 3 
First name 20 
Last name 20 
Street address 25 
City 25 
State 2 
Zip code 5 
Telephone number 14 
Notes 50 


Our data record is 164 characters long. To this we add the 
RETURN characters for the end of the fields (CHR$(13)). We 
must add one more character for each field. This yields a 
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total of 173 characters. How many records can we store on 
one diskette? 

The calculation we need here look like this: 

MAX = BYTES FOH SEQUENTIAL FILES / LENGTH OF A RECORD 
or in our example: 

168,656 / 173 = 974.8901734 

Since it will be a little difficult to make use of 
974.8901734 data records, and a little space on the diskette 
never hurts, we could store up to about 960 records. This 
number should suffice for most applications. If, however, 
you need to store more records, you must either write the 
program in such a way so that it can make use of multiple 
data disks or use a larger disk drive. In our example, using 
a Commodore 8250 drive would increase the storage capacity 
by a factor of 6 per drive. This would mean that the 8250 
could store more than 5500 addresses. 

This possibility is available to the Commodore 64. All 
that you need is the disk drive itself and an IEEE-488 
interface for the 64. 


2. Reading the data 


Now on to reading the data. The program is 
identical to the cassette version. For the 
completeness we will present this program again: 


virtually 
sake of 
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10 REM ************************************** 
20 REM READING FIRST AND LAST NAMES FROM DISK 
30 REM VERSION FOR VIC-1541 / COMMODORE 64 

40 REM ************************************** 
50 PRINT CHRS(147) : REM CLEAR SCREEN 
52 PRINT "OPENING FILE FOR READING" 

54 PRINT 

56 OPEN 2,8,2,"CBM 64 FILE,S,R" 

60 INPUT#2,LN$ 

70 INPUT#2,N$ 

80 IF ST AND 64 THEN 130 : REM END OF FILE? 

90 PRINT "READING - LAST NAME = ";LN$ 

100 PRINT " - FIRST NAME = ”;N$ 

110 PRINT 
120 GOTO 60 

130 PRINT "END OF FILB - LAST NAME = ";LN$ 

140 PRINT " - FIRST NAME = "jN$ 

150 CLOSE 2 
160 END 


As you see, this program has no important differences 
from the cassette version. The only significant difference 
in the ways in which the cassette and disk work with 
sequential files is the disk drive’s ability to append to 
the end of a sequential file without having to read in and 
rewrite the old data. 
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3. Adding data 


10 REM ************************************* 
20 REM ADDING FIRST AND LAST NAMES TO A FILE 
30 REM VERSION FOR VIC-1541 / COMMODORE 64 

40 REM ************************************* 
50 PRINT CHR$(147) : REM CLEAR THE SCREEN 
52 PRINT "OPENING FILE FOR APPENDING" 

54 PRINT 

56 OPEN 2,8,2,"CBM 64 FILE,S,A" 

60 INPUT "NAME : ";LN$ 

70 INPUT " : ";N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = "J LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 
120 PRINT#2,LN$ 

130 PRINT#2,N$ 

140 PRINT 

150 INPUT "MORE (Y/N) "jYN$ 

155 PRINT 

160 IF YN$="Y" THEN 60 
170 IF YN$="N" THEN 200 
180 PRINT "INVALID INPUT!" 

190 GOTO 140 
200 CLOSE 2 
210 END 


As you have noticed, this program bears a strong 
resemblance to the program for writing the data—with one 
exception: The OPEN command was changed from 
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OPEN 2,8,2,"CBM 64 FILE,S,W" 

to 

OPEN 2,8,2,"CBM 64 FILE,S,A" 

This ability of the disk allows relatively easy manipulation 
of sequential files. 

At the close of this section, we would like to clarify 
the range of applications of sequential files. For data 
management where fast access and easy alteration of data is 
important, sequential files are used only under certain 
conditions. Sequential files files are used primarily when a 
file is to be created for a clearly defined purpose in a 
clearly defined form. An example is data exchange between 
computers. Sequential files can, in principle, be read by 
any computer provided the character sets (generally ASCII) 
are compatible. With relative files or direct access, the 
various disk operating systems use different means of 
managing the files and such an exchange is generally not 
possible. Another example is register files which are 
created once and then never changed, such as the book¬ 
keeping journal in accounting. 


211 



Tricks & Tips 


8.4 Copying files with one and two disk drives 

As we have discussed, there are various ways of 
expanding, changing, or erasing sequential files. Sequential 
data management can be very simple—but it is looked upon as 
only a primitive method of saving and retrieving data. 

In addition, it is sensible or even necessary to 
duplicate data or files so that after working with a file, a 
copy of data in its original condition is still available or 
so that should anything happen to one copy of the file, the 
other can still be used. 

He will first discuss copying files. In our example, we 
assume that the file has been saved sequentially. There are 
several ways of copying this file. First, we could read the 
entire file into the 64’s memory in order to copy the 
records into the new file. This method either requires a 
very large amount of memory (the diskette can contain up to 
170,000 characters while the Commodore 64 can hold only 
about 30,000 along with BASIC and program) or is limited to 
small files. A "compromise" is possible where a certain 
number of records are read in by blocks and then written 
back to the diskette. We will keep to the simplest method 
however and read each record in and then write it back. 

Our goal is to create a second file which, after the 
copying process, is identical to the original file. The only 
problem which we encounter here is that we must know how 
many fields each record has. In order to make the program 
easier to use, we also it to display which record it is 
working along with its fields. 
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50000 AD*= " OR IBINAL. F I. L.E "; 

REM NAME OF THE FILE (CHAN6E AS NEEDED) 

50010 NF*="NEW FILE": 

REM NAME OF NEW FILE ( " ) 

50011 nf*="@:"+NF*+",S,W": 

REM WRITE NEW FILE 

50020 INPUT "HOW MANY FIELDS PER RECORD “;NF* 

50030 NF=VAL<NF*> 

50040 DIM FT*INF): 

REM DIMENSION FIELD TITLES 
50045 DIM DF*(NF>: 

REM DIMENSION DATA FILEDS 
50050 FOR 1=1 TO AF: 

REM INPUT ALL FIELD TITLES 
50060 INPUT FT*(I) 

50070 NEXT 1 
50080 PRINT 

50090 PRINT "COPYING IN PROGRESS. 11 
50100 OPEN 1,8,2,AF*: 

REM OPEN FILE FOR READING 
50110 OPEN 2,8,3,NT *: 

REM OPEN FILE FOR WRITING 
50112 RN=U 

REM BEGIN WITH RECORD 1 
50115 PRINT "READING RECORD NO.";RN: 

PRINT 

50120 FOR 1 = 1 TO IMF: 

REM READ ALL FIELDS 
50130 INPUTttl,DF*(I) 

50140 PR INI' FT* (I) ! " : " ; DF* (I) 

50145 DL=ST: 

REM DL = FILE STATUS 
50150 NEXT I 
50160 PRINT 

50170 PRINT "WRITING RECORD NO."5 NR: 

PR I NT 

50180 FOR 1 = 1 TO IMF: 

REM WRITE ALL FIELDS 
50190 PRINT#2,DF*(I) 

50200 NEXT I 
50210 PRINT 
50220 IF DL AND 64 
THEN 51000: 

REM END OF THE FILE? 

50230 DR=DR+1: 

REM NEXT RECORD 
50240 GOTO 50115 

51000 PRINT "ALL RECORDS (JURIED." 

51010 PRINT 
51020 close 

REM CLOSE THE FILES 
51030 CL-'JBL 1 
51040 PRINT "END." 

51050 END 
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With this program you can easily copy your own 
sequential files, so long as you know the construction (the 
number of fields per data record) of the file. 

This routine has a problem, however. When you want to 
copy a very large file, you will very soon reach the limits 
of the disk drive’s capacity. You can see that a 100,000 
character file (about 100KB) cannot be copied so easily with 
this program since you cannot create a destination file 
which has both the same construction and size of the 
original. 

In order to copy large files, we must either work with 
two disk drives or two different diskettes. The easiest and 
surest way is to make the duplicate using two disk drives. 
One of the drives must be defined as device 8 and the other 
as device 9. This can be done in software, although DIP 
switches inside the drive can be changed to make the device 
number more permanent. 
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Once you have defined one drive as device 9, you can 
alter the previous program so that even large files can be 
copied. 

50110 OPEN 2,9,3,ND$: REM OPEN FILE FOR WRITING 

Data will now be read from drive 8, displayed on the screen, 
and written back to drive 9. 

Many programmers use record 0 or 1 of their file or a 
second file to store information about the construction of 
the file. It would, for example, be very useful if you would 
save the number of fields and number of records as the first 
information in the file. This makes it unnecessary to input 
this information manually when you want to copy the file. In 
addition, you always know how many records must still be 
copied. If you have saved these two values in the file, the 
program must naturally be changed somewhat. 

50012 OPEN 1,8,2,AD$: REM OPEN ORIGINAL FILE FOR READING 

50013 INPUT#1,NF$: REM NUMBER OF FIELDS 

50014 INPUTtl,NR$: REM NUMBER OF RECORDS 

50015 CLOSE 1 

Delete line 50020 

50035 NR=VAL(NR$) 

50111 INPUT#1,NF$: 1NPUT#1,NR$: PRINT#2,NF$: PRINT#2,NR$ 

50112 FOR RN=1 TO NR 

Delete lines 50145 and 50220 

50230 NEXT RN 
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Such a parameterized file is considerably easier to work 
with. 


Appending records can be done using the same principle. 
First the file must be copied with this program, then file 
2, the new data file, is not closed but expanded with the 
usual PRINT# commands. Once the file is expanded as desired,, 
you can copy it back to the original. 
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8.5 Faster access: Relative files 

Other Commodore computers with BASIC 4.0 and Commodore 
64’s equipped with IEEE expanders with BASIC 4.0 or MASTER 
64 have much easier methods of managing relative files than 
does an unaided Commodore 64. In a relative file, each 
record carries a number which, based on its position, is 
relative to the beginning of the file. This allows you to 
construct a data management program using one of two basic 
options: 

1) You use the ordering criterium of the relative 
file, namely the given record number, as the 
access key for your record. Using this, you could 
set the account number in an account file equal 
to the record number. This makes possible a 
faster, more direct access to the desired 
account. The same applies for part numbers and 
other numeric keys which you may want to use. 

2) You build a table which contains the keys 
indexed to the record numbers. If, for example, 
you have ordered your address file by names and 
want to search for an address with the name 
SMITH, you first search the table for the name 
SMITH and then using the record number associated 
with the name, access this record directly. This 
procedure is considerably faster and more elegant 
than reading through a sequential file until the 
name is found. 

Unfortunately, users of serial-oriented Commodore 64’s 
who have not added BASIC 4.0 capability to their machines 
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cannot normally make use of these efficient relative files. 
The VIC-1541 disk drive’s operating system is able to work 
with relative files, but the necessary commands are not 
available in the 64’s Commodore BASIC 2.0. We would like to 
show you a way in which one can use relative files on the 
Commodore 64 in spite of this limitation. 

The possibility exists to inform the disk drive using 
CHR$ commands which record is to be written or read. The 
whole procedure consists of two parts: 

1) Opening the relative file with the usual OPEN command: 

OPEN filenumber, deviceaddress, channelnumber, 

"name,L,"+CHR$(length) 

The first part of this OPEN command is the same as that for 
sequential files. After the declaration of the name comes an 
"L". This L stands for LENGTH—the disk drive now knows that 
it is supposed to open a relative file. Next comes a very 
important CHR$ command. This command tells the disk drive 
the length of the data records in our file. In our previous 
example of the address file, we would enter 173 here as the 
record length. The Commodore 64 and the disk operating 
system allow a maximum record length of 254 characters. If a 
record requires more than 254 characters, either another 
file must be opened and the record divided into two or more 
smaller records or you can write in the same file and make 
note of the fact that every second record is the second part 
of the "meta-record." 
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2. Positioning the record pointer: 

PRINT# channelnumber,"P"+CHR$(channelnumber)+ 

CHR$(low)+CHR$(high) 

The special part of this command begins after the 
declaration of the file number. The "P” means POSITION and 
tells the operating system that the following CHR$ commands 
are to set the record pointer through the input of LOW and 
HIGH (we will show you later how to calculate LOW and HIGH). 

The command can be expanded even farther. If you add 
another CHR$ command to the end of the current string, this 
will designate the position within data record. This allows 
you to set the record pointer to a specific character. 

There is one very important characteristic of relative 
files which must be noted: 

A terminating character (CHR$(13)) must be written to 
the record after each FIELD is written. Without this 
separating character, the computer will not be able to 
distinguish between successive fields. For this reason we 
have always placed the PRINT# commands on different lines so 
that a carriage return, CHR$(13), is automatically saved 
between the records. 

This will all be made clearer through an example. 
Therefore, we have included a completely functional 
inventory control program at the end of this section so that 
you can see the procedures discussed in the section actually 
used in a program. We believe that the trouble of typing 
this program in will be well worth it, since with only minor 
changes it can be used as an address manager, tape and 
record cataloguer, and more. 
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But first to the above-mentioned HIGH and LOW numbers. 
These HIGH and LOW numbers together give the actual data 
record number. The formula for calculating the record number 
is: 

record number = HIGH * 256 + LOW 

This allows us access to records with numbers greater than 
255. To read the 78th record, for instance, we must first 
calculate HIGH and LOW: 

HIGH = INT (record number / 256) 

LOW = record number - HIGH * 256 

or in a concrete example 

HB=INT(78/256): LB=78-HB*256 

which yields the values 

HB = 0, LB = 78 

This calculation is rather trivial for reading a record 
whose number is less than 256, but this example shows how 
all of the calculations can be made. 

This result must now be used in the command to set the 
record pointer. To set the pointer to the 78th record, the 
command is 

PRINT# channelnumber,"P"+CHR$(channelnumber)+CHH$(0)+CHR$(78) 
In our inventory management program, you will find the 


220 



Tricks & Tips 


following structure: 

PRINT#15,"P"+CHR$(3)+CHR$(231)+CHR$(3)+CHR$(1) 

This command will set the pointer to the first character 
within the 999th data record of the file. 

Before the file can be used, it must first be prepared 
for relative operation. This is done by setting the record 
pointer to a record and then writing to this record with the 
character CHR$(255). This character tells the operating 
system that an existing data record lies at this point, in 
which nothing has yet been written. In our example, all of 
the 999 records are marked with this character. 

Now we can write the record in this file, but no more 
than we have declared when we opened the file. If one tries 
to write a record which lies outside of the allowed range, 
the computer will respond with the error message RECORD NOT 
PRESENT, since this data record does not exist. 

In our program, after you start it with RUN, you will 
be asked if the disk drive is connected. This message will 
appear until you press the Y key. After this, you will be 
asked if you want to use a new disk. "New” means only that 
the disk is unformatted or that it has not been initialized 
for the file. Be careful, though, because the disk will be 
formatted in any event, so don’t use a disk which contains 
anything you might want to keep. When this is done, the main 
menu will appear. From this point, you can call up six 
possible functions. 

When you want to construct a record, remember that the 
input may be no longer than the length given in the data 
lines (30-82). These lines are constructed such that the 
name is entered first and then the length of the field. To 
delete an existing record, go to the routine CHANGE and 
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enter an @ as the first character in the DESCRIPTION field. 
This will mark the record as erased. 

In any function, you can return to the main menu by 
entering END when asked to enter the part number. 

When first entering a part, only the part number and 
description are entered. To enter an initial quantity, you 
must enter this quantity as a sales slip. At this time you 
will also have to opportunity to set cost and price of the 
item. This must also be done when receiving items. To update 
the inventory (when goods are sold), enter the quantity sold 
as a negative number when entering the sales slip. You do 
not have to re-enter the cost and price each time—just 
press RETURN when asked. 

In addition, a printer and disk drive must always be 
connected when working with this program. If you do not have 
a printer, you must rewrite the program. Lines containing 
PRINT#4 commands must be changed since these are the lines 
which send the data to the printer. 

If this program is to be used for multiple branches or 
by more than one person, it is recommended that a new disk 
be used for each branch or person. 

We hope that this program will offer you some insight 
into data management, especially data management with 
relative files. It looks at first glance more difficult than 
it really is. With a little practice, you will be able to 
design similar programs of your own. 
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10 CLR 

15 ME(1)=1.065: 

ME(2)=1.13: 
ME(3)=1.07: 
ME(4)=1. 14 


20 

FOR I 

= 1 

TO 7: 



READ TDT<I>,TD(I> : 



NEXT 

I 



30 

DATA 

" 1) 

PART NUMBER 

" j 3 

32 

DATA 

"2) 

DESCRIPTION 

" , 20 

34 

DATA 

"3) 

QUANTITY 

" , 3 

36 

DATA 

"4) 

COST/EACH 

",7 

38 

DATA 

"5) 

TOTAL COST 

" , 8 

40 

DATA 

"6) 

PRICE/EACH 

",7 

42 

DATA 

"7) 

TOTAL PRICE 

",8 

50 

FOR I 

= 1 

TO 3: 



READ TI*!I>,TI< I) : 



NEXT 

I 



56 

DATA 

"1) 

PART NUMBER 

" , 3 

58 

DATA 

"2) 

DESCRIPTION 

", 20 

60 

DATA 

II 


", 1 

70 

FOR I 

= 1 

TO 4: 



READ TT*<I>,TT<I): 



NEXT 

I 



76 

DATA 

”1) 

BRANCH NUMBER 

",1 

78 

DATA 

" 2) 

DATE 

", 8 

80 

DATA 

"3) 

ACCOUNT NUMBER 

",8 

82 

DATA 

"4) 

RECEIPT NUMBER 

",8 


100 PRINT CHR’$ < 147) 

110 PRINT "*******•»************■»*******#***********'"> 

120 PRINT "* DATA MANASEMENT PROGRAM 1.0 *"5 

130 PRINT "**************************#*-************"S 

140 PRINT ". 

PRINT 

150 PRINT "DISK DRIVE CONNECTED? "5 
160 GET A*: 

IF A$="" 

THEN 160 
170 IF A$< >"Y" 

THEN 160 
180 PRINT A* 

190 OPEN 15,8,15,"10": 

CLOSE 15 

200 PRINT "NEW DISKETTE? <Y/N) "; 

210 GET A*: 

IF A*="" 

THEN 210 

220 IF A$< >"Y" 

THEN 300 
222 PRINT AS 

230 OPEN 15,8,15,"N:DATA DISKETTE,AH" 

240 OPEN 1,8,3,"0:INVDAT,L,"+CHR*(64) 

250 PRINT#15, "P"+CHR*<3> «-CHR* <231) +CHR* <3) +CHR* < 1) 

260 PRINT#1,CHRS < 255)5 

270 RM=INT<167132/64) 
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280 CLOSE l: 

CLOSE 15 

300 PRINT CHR$(147) 

310 PRINT "**************************************** 
320 PRINT "* DATA MANAGEMENT PROGRAM 1.0 * 

330 PRINT "**************************************** 


340 

PRINT 

PRINT 

= 


345 

PRINT 

PRINT 

PRINT 

TAB(15)5 

"MAIN MENU": 

350 

PRINT 

PRINT 

" 1) 

ENTER PART”: 

355 

PRINT 

PRINT 

*i 2) 

CHANGE PART": 

360 

PRINT 

PRINT 

" 3) 

ENTER SALES SLIP 

365 

PRINT 

PRINT 

" 4) 

PRINT PARTS LIST 

370 

PRINT 

PRINT 

" 5) 

PRINT EVALUATION 

375 

PRINT 

" 6) 

EXIT PROGRAM": 


PRINT : 


PRINT 

380 PRINT "YOUR SELECTION (1--6) : "? 

390 GET A*: 

IF A*="“ 

THEN 390 
400 A=VAL<A*>: 

IF A< 1 OR A>6 
THEN 390 
410 PRINT A* 

420 FOR 1=1 TO 1000: 

NEXT 
430 ON A 

GOTO 1000,2000,3000,4000,5000,6000 
1000 OPEN 15,8,15; 

OPEN 8,8,8,"0:INVDAT" 

1002 GOSUB 12000 
1005 PRINT CHR*(147> 

1010 PR I NT " *************#************#**i<-********* " 
1020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *" 

1030 PRINT "***************************************" 
1040 PRINT : 

PRINT 

1050 PRINT TAB(7)S"INPUT PART": 

PRINT : 

PRINT 

1060 FOR 1=1 TO 2 
1065 TE$(I> = "" 

1070 PRINT TI*(I)5 

1080 INPUT TE$(I) 

1090 NEXT 

1092 IF TE$(1)=“END" 

THEN 1200 
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1093 FOR 1=1 TO 3 

1095 IF LEN(TE*(I>>>TI<I> 

THEN 1065 
1100 NEXT 
1102 FOR 1=4 TO 8: 

TE*(I>=""S 
NEXT 

1110 RN=VAL <TES(1)) 

1120 IF RN<1 OR RN>999 
THEN 1005 
1130 BOSUB 10000 

1140 BOSUB 10070 

1150 BOTO 1005 
1200 CLOSE 8: 

CLOSE 15 
1220 SOTO 300 
2000 OPEN 15,8,15: 

OPEN 8,8,8,"0:INVDAT" 

2002 BOSUB 12000 

2005 PRINT CHR$(147) 

2010 PRINT "****************************************"5 

2020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *"5 

2030 PRINT 11 ****************************************"J 

2040 PRINT : 

PRINT 

2050 PRINT TAB<8>S"CHANGE PART": 

PRINT : 

F'R I N T- 

2055 TE*U>="" 

2060 PRINT TI$ <1); 

2070 INPUT TE$(1) 

2080 PRINT 

2090 IF TE*(1)="END" 

THEN 2400 

2100 IF LEN(TE$<1>)>TI(1) 

THEN 2055 

2110 RN=VAL(TE*<1)) 

2120 IF RN<1 OR RN>999 
THEN 2005 
2130 BOSUB 10000 

2140 60SUB 10030 

2142 IF VALiTEsMi) TORN 
THEN 2005 

2150 PRINT CHRS(147) 

2160 PRINT "****************•*■*•■#■■**■***#•***■**■•*■**■**■***•*•*" j 
2170 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *"5 

2180 PRINT "•)<•#*■fr#*****#**####****#**#******'^*" 5 

2190 PRINT : 

PRINT 

2200 PRINT TAB(8)"CHANGE PART": 

PRINT : 

PRINT 

2210 FOR 1=1 TO 2 

2220 PRINT TI*(I)i“? "5 

2230 PRINT TE*(I) 

2240 PR1NT CHR*(145)5 
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2250 PRINT TI* <I); 

2260 INPUT TE*(I) 

2270 PRINT 

2280 IF TE*<1)*"END" 

THEN 2400 

2290 IF LEN(TE*<I))>TI<I) 

THEN 2250 
2300 NEXT 
2310 RN=VAL(TE*<1>> 

2320 IF RN<1 OR RN>999 
THEN 2005 
2330 GOSUB 10000 
2340 GOSUB 10070 
2400 CLOSE 4: 

CLOSE 8: 

CLOSE 15 
2430 GOTO 300 
2530 GOTO 3005 

3000 OPEN 15,8,15: 

OPEN 8,8,8,"0:INODAT" 

3001 OPEN 4,4: 

DV=1 

3002 GOSUB 12000 
3005 PRINT CHR*<147) 

3010 PRINT "**************************************** 
3020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 * 

3030 PRINT ”**************************************** 
3040 PRINT : 

PRINT 

3050 PRINT TAB(7)"ENTER SALES SLIP": 

PRINT : 

PRINT 

3060 TE*<1>="" 

3070 PRINT TI*<i); 

3080 INPUT TE*<1> 

3090 PRINT 

3100 IF TE*(1)="END" 

THEN 3700 

3110 IF LEN< TE*<1))>TI<1) 

THEN 3060 

3120 RN=VAL<TE*<1)) 

3130 IF RN<1 OR RN>999 
THEM 3005 

3132 IF DW=1 AND RN>799 
THEN 3005 

3134 IF DW=2 AND RN<800 
THEN 3000 
3140 GOSUB 10000 
3150 GOSUB 10030 
3152 IF VAL <TE$ < 1. ) > < >RN 
THEN 3005 

3154 IF LEFT*<TE*<2),1)="@" 

THEN 3005 

3160 PRINT CHR*<147) 

3170 PRINT "**************************************** 
3180 PRINT "* DATA MANAGEMENT PROGRAM 1.0 * 
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3190 PRINT "•»•**#****#•******#*•»***#****•****###*******"> 

3200 PRINT : 

PRINT 

3210 PRINT TAB<7>"ENTER BALES SLIP": 

PRINT : 

PRINT 

3212 FOR 1=1 TO 5 
3214 TH* <I)=TE*(I+3) 

3216 NEXT 

3220 FOR 1=1 TO 2 

3230 PRINT TD*<I)"? "TE*(I) 

3235 TX*(I)=TE*(I) 

3240 PRINT 

3250 NEXT 

3255 TX*(3)=TE*<3> 

3260 PRINT TD*<3>; 

3270 INPUT TX*<4) 

3275 TE*(4)=TX*<4) 

3280 PRINT 

3285 IF VALUE* <4> X-999 OR VAL(TE*(4)>>999 
THEN 3260 

3287 IF LEN(TE*(4))>TD <3) 

THEN 3260 

3290 PRINT TD*<4>; 

3295 TE*(5)="" 

3300 INPUT TX*(5> 

3305 TE*(5>=TX*<5) 

3310 PRINT 

3315 IF LEN (TE*(5))>TD(4) 

THEN 3290 

3320 PRINT TD* <6)5 
3325 TE* <7)="" 

3330 INPUT TX*<7> 

3335 TE*(7>=TX*<7> 

3340 PRINT 

3345 IF LEN(TE*(7))>TD(6) 

THEN 3320 

3346 TH=VAL(TE*<4)> 

3347 TH=TH+VAL. (TH* <1)) 

3348 TE*(4)=STR* <TH) 

3350 TH=VAL(TE*(5> >*VAL(TE*(4) ) 

3351 TX*(6)=STR*(TH) 

3355 TE*(6)=STR* (TH) 

3360 TH=VAL (TE* <7))*VAL (TE* <4>> 

3361 TX*(8)=STR*(TH) 

3365 TE*(8)=STR*(TH) 

3370 TH=VAL < TE* < 5)) 

3371 IF VAL(TE*(4)> <1 
THEN TH=-TH 

3375 TE*(5 > =STR*(TH) 

3380 TH=VAL(TE*(7)) 

3381 IF VAL (TE* (4) XI 
THEN TH=—TH 

3385 TE*(7)=STR*(TH) 

3460 RN=VAL(TE* (1> > 

3470 SOSUB 10000 
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3480 BOSLIB 10070 
3485 FOR 1=1 TO 8: 

TE*<I)=TX*<I>: 

tx$ <I)=" 

NEXT 

3490 IF DW=0 AND VAL<TE*(1))<800 
THEN DW=1: 

SOSUB 5360: 

SOTO 3510 

3500 IF DW=0 AND VAL(TE$ <1))>799 
THEN DW=2: 

SOSUB 7005: 

SOTO 3520 
3510 IF DW=1 

THEN SOSUB 5520: 

SOTO 3530 
3520 IF DW=2 

THEN SOSUB 7120 
3530 SOTO 3005 
3700 IF DW=1 

THEN SOSUB 5590: 

SOTO 3800 
3710 IF DW=2 

THEN SOSUB 7190 
3800 DW=0: 

DV=0 

3999 CLOSE 4: 

CLOSE 8: 

CLOSE 15: 

SOTO 300 

4000 OPEN 15,8,15: 

OPEN 8,8,8,"0:INVDAT“ 

4002 SOSUB 12000 
4005 PRINT CHR*U47> 

4010 PRINT "**************************************** 
4020 PRINT "* DATA MANASEMENT PROGRAM 1.0 * 

4030 PRINT "**************************************** 
4040 PRINT : 

PRINT 

4050 PRINT TAB(8>"PRINT PARTS LIST": 

PRINT : 

PRINT 

4060 FOR 1=1 TO 2 
4070 TE$(I> = "" 

4080 PRINT TT$ <I); 

4090 INPUT TE$(I) 

4100 PRINT 

4110 IF TE$ <1)="END" 

THEN 4999 

4120 IF LEN <TE* <I)>>TT <I) 

THEN 4070 
4130 NEXT 
4135 TE*<3>="": 

TE$(4)="" 

4140 IF DV=1 

THEN RETURN 
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4200 PRINT CHRt(147) 

4210 PRINT "**************#***********-******-********“; 
4220 PRINT "* DATA MANABEMENT PROBRAM 1.0 *"5 

4230 PRINT "***#***************#**-*********#********"; 
4240 PRINT : 

PRINT 

4250 PRINT TAB<8)"PRINT PARTS LIST": 

PRINT : 

PRINT 

4260 PRINT "IS THE PRINTER TURNED ON? (Y/N) "; 

4270 BET A*: 

IF A$="" 

THEN 4270 
4280 IF A*<>"Y" 

THEN 4270 
4290 PRINT A* 

4300 OPEN 4,4 

4310 PRINT#4,"BRANCH NO. " Jl'E* < 1 > 5 

4330 PRINT#4,CHR* <16)5"20"5"DATE ";TE$(2)5 

4340 PRINT#4,CHR$<16>;"40"5"ACCOUNT NO. "5TE*<3>; 

4345 PRINT#4,CHR$ <16);"60";"RECEIPT NO. ";TE$<4> 

4350 PRINT#4 

4360 PRINT#4,"PART NO."5 

4375 PRINT#4, CHR$(16);"15"!"QUANTITY"5 

4385 PRINT#4,CHR*<16>5"25";“DESCRIPTION" 

4390 PRINT#4, "-"; 

4405 PRINT#4,CHR* (16) ; "15"; "-"5 

4415 PR I NT#4, CHR$ (16) j "25"; "-" 

4420 FOR RN=1 TO 999 
4430 BOSUB 10000 

4440 GOSUB 10030 

4442 IF VAL(TE*(1>)<>RN 
THEN 4480 

4444 IF LEFT*(TE*<2>,1)="@" 

THEN 4480 

4450 PRINT#4,TE*(1>; 

4460 PRINT#4,CHR$!16);"15";TE*(4); 

4470 PRINT#4,CHR*(16>;"25"5TE*(2) 

4480 NEXT 
4490 FOR 1=1 TO 3 
4492 F'R I NT#4 

4494 NEXT 

4999 CLOSE 4: 

CLOSE 8: 

CLOSE 15: 

GOTO 300 

5000 OPEN 15,8,15: 

OPEN 8,8,8,"0:INVDAT" 

5002 BOSUB 12000 
5005 PRINT CHR$(147) 

50iO PRINT "********************•*•**#■***•**■*•*•*•********" j 
5020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 

5030 PRINT "************************************##**"; 
5040 PRINT : 

PR IN I 

5050 PRtNT TAB(9)“PRINT THE EOALUATION": 
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PRINT : 

PRINT 

5060 FOR 1=1 TO 4 
5070 TE^d)*"" 

5080 PRINT TT*(I); 

5090 INPUT TE*<I) 

5100 PRINT 

5110 IF TE$ <1)="END" 

THEN 5999 

5120 IF LEN<TE$<I>>>TT(I) 

THEN 5070 

5125 IF DV=0 AND 1=2 

THEN 1=4 
5130 NEXT 
5140 IF DV=i 

THEN RETURN 

5200 PRINT CHR$ <147) 

5210 PRINT "****************************************"5 
5220 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *"5 

5230 PRINT "****************************************"i 
5240 PRINT : 

PRINT 

5250 PRINT TAB<9)"PRINT EVALUATION": 

PRINT : 

PRINT 
5252 SA=0: 

SE=o: 

SG=o: 

SF=0: 

SH=0 

5255 FOR 1=1 TO 4: 

Ml(I)=0: 

M2(I)=0: 

NEXT 

5260 PRINT "IS THE PRINTER TURNED ON? <Y/N> "5 
5270 GET A*: 

IF A$="" 

THEN 5270 
5280 IF A$< >"Y" 

THEN 5270 
5290 PRINT A* 

5300 OPEN 4,4 

5310 PRINT#4,"BRANCH NO. "5TES(1)5 

5330 PRINT#4,CHR$(16)5“20"j"DATE ";TE$<2>; 

5335 IF DV=0 

THEN PRINT#4: 

GOTO 5350 

5340 PRINT#4,CHR*(16);"40"5"ACCOUNT NO. ";TE*<3)i 
5345 PRINT#4, CHR$(16 >;"60 "% "RECEIPT NO. " ; TE*(4 > 

5350 PRINT#4 
5355 IF DV=1 

THEN RETURN 


5360 PRINT#4,"PART NO."5 

5370 PRINI#4,CHR$(16)?"10"i"QUA.' 
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5375 

5380 

5390 

5400 

5410 

5420 

5425 

5430 

5440 

5450 

5460 

5470 

5475 


5480 

5490 

5500 

5510 


5515 

5520 

5525 

5530 

5540 

5550 

5560 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5579 


5580 

5590 

5600 

5605 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5775 


5777 

5780 

5999 


PRINT#4,CHR$(16> ; ' 
F'RINT#4,CHR*(16); • 
PRINT#4,CHR$(16)5 ' 
PRINT#4,CHR$(16)5 1 
PRINT#4,CHR*(16>5' 

PRINT#4,"-' 

PRINT#4,CHR$<16>;' 
PRINT#4,CHR$ <16)5' 
PRINT#4,CHR$ (16);' 
PRINT#4,CHR$ <16)5 1 
PRINT#4,CHR$(16)5 ' 
PRINT#4,CHR$(16);' 
IF DV=1 
THEN RETURN 
FOR RN=1 m 799 
GOSUB 10000 
GOSUB 10030 
IF VAL(TE$(1>)<> 
THEN 5580 
IF LEFT*(TE*(2>, 
THEN 5580 
PRINT#4,TE*<1); 
PRINT#4,CHR$(16) 
PRINT#4,CHR*(16> 
PRINT#4,CHR*(16) 
PRINT#4,CHR*<16) 
PRINT#4„CHRtM16) 
PRINT#4„CHR$(16) 
SA=SA+VAL(TE*(4> 
SE=SE+VAL<TE$(5) 
S6—SG+VAL(TE$(6) 
SF=SF+VAL(TE*(7> 
SH=SH+VAL(TE*(8> 
IF VAL (TE3> (3) XI 
THEN 5579 
IF DV=i 


15"j"DESCRIPTION" ; 
40"!"COST/EA"; 

50";"TOT COST"; 
60";"PRICE/EA"; 

70"5"TOT PRIC" 

; 

10 " ; "-"; 

15"; "-"; 

40";"-"; 

50 ";"-"; 

60"; "-"; 

70";"-" 


RN 

1 )="@" 


;"10"JTE*(4>S 
; "15";TE$(2); 

;"40";TE*(5); 

; "50";TE*(6); 

;"60";TE$(7); 

; "70";TE$(8) 

) 

) 

) 

) 

) 

OR VAL(TE$(3))>4 


THEN RETURN 
NEXT 

PRINT#4, "-"; 

PRINT#4,CHR$(16);"10";"- 

PRINT#4,CHR$(16);"15";”- 

PRINT#4,CHR*(16> ; "40"! "-"; 

PR I NT#4, CHR* (16);" 50 " ; "-" ; 

PRINT#4, CHR$ (16) ; "60"; "-" ; 

PR I NT#4, CHR$ (16);" 70 " 5 "-" 

PRINT#4,"TOTALS: "S 
FRINT#4,CHR*<16);“09";SA; 

PR I NT #4, CHRTi ( 16) ; "39" ; SE; 

PRINT#4,CHR* <16);"49";SG; 

PR I NT#4, CHRii (16) ; "59";8F; 

PRINT#4,CHR$(16);“69";SH 
FOR 1=1 TO 3: 

PRINT#4: 

NEXT 


RETURN 
GOSUB 7000 
CLOSE 4: 
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close a; 


6000 

CLOSE 15: 

GOTO 300 

CLOSE 4: 


6030 

CLOSE 8: 

CLOSE 15 

PRINT CHR*<147> 


6040 

END 


7000 

si=o: 


7005 

S2=0 

PRINT#4,"PART NO."; 


7010 

PRINT#4,CHR*(16);"15"; 

"DESC"; 

7020 

PRINT#4,CHR*<16);"40"; 

"EXPENDITURES 

7030 

PRINT#4,CHR$ <16);"60"; 

"RECEIPTS" 

7040 

F'RINT#4, "-"; 


7050 

PRINT#4.CHR*(16);"15"; 

"-"5 

7060 

PRINT#4, CHR*<16>;"40"; 

«-" ; 

7070 

PRINT#4,CHR$ <16)5"60"; 

ii-•• 

7075 

IF DV=1 


70B0 

THEN RETURN 

FOR RN=800 TO 999 


7090 

GOSUB 10000 


7100 

GOSUB 10030 


7110 

IF VAl. < TE$ < 1) > < >RN 


7120 

THEN 7180 
PRINT#4,TE*<1) ; 


7130 

PRINT#4,CHR$(16);"15 

”;TE*(2); 

7140 

PRINT#4,CHR$(16);"40 

";te$<5); 

7150 

PRINT#4,CHR$(16)5"60 

"; TE*(7) 

7160 

S1=S1+VAL <TE$(5)) 


7170 

S2=S2+VAL(TE$<7)) 


7175 

IF DV=1 


7180 

THEN RETURN 

NEXT 


7190 

F'R I NT#4, "-"; 


7200 

F'RINT#4.CHR*(16> ; "15"; 

1 __II m 

7210 

PRINT44,CHR*(16) ; "40” ; 

- . q 

7220 

PRINT#4,CHR*(16);"60" ; 

•-II 

7230 

PRINT#4."TOTALS: "; 



7240 F'R I NT #4, CHR$ (16) ; "39" 5 SI; 

7250 PRINT#4,CHR*<16);"59";S2 
7260 FOR 1=1 TO 3: 

PRINT#4: 

NEXT 

7380 FOR 1=1 TO 3: 

PR1NT#4: 

NEXT 

7999 RETURN 

8000 PRINT CHR*<147) 

8010 PRINT "**************************************** 
8020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 * 

8030 PRINT "»»*****#****»*****■*•*•#***#****#*#•*#****•#* 
8040 PRINT : 

PRINT 

8050 PRINT TAB(7);"ENTER SALES SLIP": 

PRINT : 

PRINT 
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0070 

8072 

8074 

8076 

8080 

8090 


8100 

8110 

8120 

8130 

B500 

8510 

8520 

8530 

8540 

8550 


8560 
8570 
8580 
10000 

10010 
10015 
10020 
10030 

10060 

10070 

10072 

10080 
10110 
12000 
12010 

12020 

12030 


12040 
12060 


SA=0: 

SE=0; 

SG=0: 

sf=o: 

SH=0: 

Sl=0: 

82=0 

FDR 1=1 TO 4 
Ml(I)=0 
M2 < I)=0 
NEXT 

PRINT "IS THE PRINTER TURNED ON? (Y/N) 

GET A$: 

IF A$="" 

THEN B090 
IF A$< >"Y" 

THEN 8090 
PRINT A* 

OPEN 4,4 
RETURN 

PRINT CHR$(147) 

PRINT "************************************'****''« 
PRINT "* DATA MANAGEMENT PROGRAM 1.0 

PRINT "*****************************************"; 
PRINT : 

PRINT 

PRINT TAB(7)5"ENTER SALES SLIP": 

PRINT : 

PRINT 

GOSUB 5060 
GOSUB 5310 
RETURN 

HB=INT(RN/256): 

LB=RN-HB*256 

PRINT#15,"P"+CHR* <8)+CHR#(LB)+CHR*(HB)+CHR*(1) 

GOSUB 12000 

RETURN 

INPUI#8, TE*(1),TE*<2),TE*<3),TE*<4),TE*(5),TE*(6), 
TE*<7>,TE*(8) 

RETURN 

TE$=TE* <1)+CHR$(13)+TE4(2)+CHR*(13)+TE*(3)+CHR$ <13 
>+TE$(4)+CHR$(13> 

TE$=TE*+TE$(5)+CHR*(13)+TE$(6)+CHR*(13)+TE* <7)+CHR 
$(13)+TE$(8) 

PRINT#8,TE$ 

RETURN 

INPUT#15, X, X$,Y*. Z'i 
IF XOO 
THEN 12030 
RETURN 


print x;x*;Y$;z$: 
close s: 

CLOSE 15 

FOR 1=1 TO 6000: 

NEXT 

(SOTO 100 
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8.6 Another method: Direct access 

This method of accessing data on the diskette is 
unfortunately often ignored or overlooked. It is quite 
complicated but it has some very interesting aspects. What 
does direct access allow us to do? 

1) Accessing files - random files 

This method has something to do with sequential file 
management, but without the disadvantages, and also has 
something in common with relative files. 

2) Accessing individual tracks on the disk 

This method of access offers you possibilities which 
you had probably not thought of before, and whose purpose 
you may not yet see. We will discuss it in greater detail 
later. 


1. Random files 


In contrast to the sequential and relative files, a 
single block in a random file is 256 bytes long, and a total 
of 664 such blocks can be stored on a diskette. You can also 
store shorter records, such as 4 64-byte records in a block. 
The task of correctly accessing the exact location within 
the block falls now to the programmer. To use a random file, 
you must first open a sequential file in order make note of 
the tracks in which you have stored the data. You will need 
a total of three files: 
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1) Sequential file for the pointer 

2) Command file 

3) Data file for direct storage 


10 OPEN 4,8,4,"CBM 64 FIIE.S.W": HEM SEQUENT. FILE 
20 OPEN 15,8,15: REM COMMAND CHANNEL 
30 OPEN 5,8,5,”#": REM DATA FILE 
40 TE$="ABACUS SOFTWARE" 

50 PRINT#5,TE$;”,”;1: REM TEXT, RECORD # 

60 T=l: S=l: REM TRACK=1, SECTOR=l 
70 PRINT#15,"B-A:";0,T,S: REM DRIVE, TRACK, SECTOR 
80 INPUT#15,ER,NA$,TR,BL: REM READ ERROR 
90 IF ER=65 THEN T=TR: S=BL: GOTO 70 
100 PRINT#15,"B-W:";5,0,T,S: REM WRITE RECORD 
110 PRINT#4,T;",";S 
120 CLOSE 5 
130 CLOSE 15 
140 CLOSE 4 
150 END 

What does this program do? First it opens the three 
required files, then defines some text which will later be 
written to the disk. This text is first written to the data 
buffer, after which the operating system searches for the 
next free block on the diskette. The search begins at track 
1, sector 1, the start of the diskette (line 70). "B-A:" 

means Block-Allocate and attempts to allocate the block 
defined by the drive, track, and sector numbers. If this 
block is not free (it is being used by some other file, or 
perhaps another part of the current one) the operating 
system will search until it finds a free block. In order to 
see if the sought-after block is free or not, we must read 
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the command channel. If the error code has the value 65, we 
know that the block was not free. Once the computer finds a 
free block, it then writes the data stored in the data 
buffer in the proper block on the diskette. After this, it 
writes the address of the block to the sequential file so 
that the record can be found again later. At the same time, 
the operating system also makes note of this block so that 
it will not be overwritten by other files. The files are 
closed and the program ends. 

Equally interesting is the retrieval of the data: 

10 OPEN 4,8,4,"CBM 64 FILE" 

20 OPEN 15,8,15 
30 OPEN 5,8,5,”#" 

40 INPUT#4,T,S: REM READ THE ADDRESSES 

50 PRINT#15,"B-R:";5,0,T,S 

60 INPUT#5,TE$,RE 

70 PRINT#15,"B-F:";0,T,S 

80 CLOSE 5 

90 CLOSE 4 

100 PRINT#15,"S:CBM 64 FILE" 

110 CLOSE 15 

After the file is opened, the address (track and 
sector) of the block in which the data is saved is read in. 
The block itself is read, and the block is freed once again 
with the Block-Free command in line 70. This is to be done 
only when the block is to be deleted. Finally, the 
sequential and data files are closed, the sequential file is 
scratched, and the command channel is closed. 
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2. Direct disk access 

This access makes it possible, as the name suggests, to 
directly access any desired tracks and sectors on the disk, 
that is, to read from and write to the disk without opening 
any files. This allows you to read the directory, for 
example, without using the L0AD"$",8 command and thereby 
destroying any program in memory. Or you could change a 
program on the diskette without having to load it; even 
destroyed programs can, under certain circumstances, be 
repaired. 

This method of access is also quite dangerous, so we 
would like to warn all those against it who do not possess a 
good working knowledge of the construction of the diskette, 
the directory, and the BAM. Entire files and even the whole 
disk can be destroyed very easily with this command. To find 
out more about these commands, we refer you to the VIC-1541 
user’s guide or to the book The Anatomy of the 1541 Disk 
SriY®- If you want to experiment with these commands, be 
sure to do it on a disk which does not contain any data or 
programs you might want to keep. 

Here is a list of the commands which can be used to directly 
access the blocks on the diskette: 


Name 

Use 

Block-Read 

Block-Write 

Block-Allocate 

Block-Free 

Buffer-Pointer 

"B-R:";channel;drive;track;block 
"B-W:";channel;drive;track;block 

”B-A:";drive;track;block 

"B-F:";drive;track;block 

"B-P:";channel;position 
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These are the most important commands for direct access. 
Their common trait is that they all access the disk 
controller directly, offering possibilities not available 
otherwise. Many of the more useful possibilities can be 
found in The Anatomy of 1541 Disk Drive. 
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8.6 Rescuing an improperly closed file 

Admittedly it does not happen often, but when it does, 
it is very annoying and results in a loss of work. 

What is "it"? 

By "it" we mean something like the following: 

With much effort you have organized your record 
collection and would like to store the titles on a disk so 
that you can find them quickly. The usual method simply 
involves saving the record titles and artists’ or composers’ 
names in one or more sequential files. You are now in the 
course of entering the desired data via the keyboard and are 
almost done (you have already entered 500 titles) when your 
spouse trip over the power cord. "Doesn’t matter," you 
think, "The data’s safe on the diskette." 

You return to your program, change the OPEN command for 
your sequential file to APPEND (A instead of W) and try to 
continue, but the red light on the disk begins to flash, 
indicating an error! Puzzled, and a bit worried, you read 
the error channel and find the message "WRITE FILE OPEN". 
When you list the directory, you find an in front of the 

type designation. This means that the file is still open for 
writing since no CLOSE followed the write accesses. The same 
thing happens when you remove a disk from the drive without 
first closing all of the write files. 

The usual methods offer you no chance of recovering 
your data. Too bad about the record collection. 

Since this happened to us often enough, we have 
developed a small program which makes it possible to make 
the destroyed files at least readable again. Once again, we 
have provided a description of the program operations and 
the variables used. 
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Variables: 

E Position of the filename within the directory sector 
S Sector number for the direct commands 
T Track number for the direct commands 
TY File type (derived from T$) 

X Index variable for isolating the file name 
A$ Interim variable for constructing S$ 

F$ Filename 
S$ Complete sector 
T$ File type 

X$ 16-character expanded filename read from directory, 
later the actual filename 
Xl$ Duplicate of X$ 


Program operation: 

70 Open a data channel for the direct access 
80 Open the command channel 

100 Input filename 

110 Assignment of track and sector numbers. For the 
VIC-1541 and the CBM 4040, the directory begins on 
track 18, sector 1. For the CBM 8050 disk drive, it 
is stored on track 39. If you are using this drive, 
this line must be changed accordingly. 

120 In this line, the disk sector specified by T and S 
is read from the diskette (drive 0) into the 
internal buffer on the disk drive. 

150 The buffer contents are transferred to A$. 

160 A sector can contain up to eight directory entries. 


240 



Tricks & Tips 


These are first searched for the desired filename 
before the next sector is read in. 

170 Here the filename is isolated from the entry and 
placed in X$. 

200-210 The end criterium for the actual length of the 
filename is CHH$(160) (shifted space). Here the 
filename is removed and placed back into X$. 

220-230 If the filename is found, execution branches to 
line 300, otherwise the other entries in the sector 
are searched. 

240-260 At the beginning of each sector stands the track 
and sector addresses of the following block, or if 
there is none (end of the directory), the track 
number is zero. 

300-310 The file type (the byte from which the file type 
for the screen is generated) is isolated and placed 
in T$ while the numeric value is placed in T. 

320 T=0 marks an empty directory entry. 

360 The bit which is set here is the cause of the whole 
problem. This bit is used to indicate if a file was 
opened for writing or not. The asterisk on the 
screen is derived from this bit. 

370 The entire sector, including marker for a closed 
file, is reconstructed. 

390-410 Now the buffer pointer in the drive is reset, the 
sector is placed into the buffer, and the buffer 
contents are written back to the disk. 

420-490 These lines serve to remind you how to proceed with 
rescuing the file. 
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This program is quite simple to use: 

Load the program, insert the disk containing the file you 
wish to rescue into the drive (it must be drive 0 for a 
double drive), run the program, and enter the name of the 
file. 

A limitation: 

This procedure does not work with relative files because 
they are stored differently on the disk. A relative file can 
only be reconstructed with a great deal of work. 

Once you have rescued your file, you should read it record 
by record and rewrite the data to a new file. This is 
necessary because although the file has been recovered, the 
logical end of the file is no longer recognized. 

At this point you should stop the procedure and be sure to 
close the new file and then erase the defective file. 

We hope that you will find this program useful but also that 
you do not have to use it often. 
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10 PRINT CHR$(147); 

20 PRINT CHR$(5>; 

70 OPEN 2,8,2,"#": 

REM DIRECT ACCESS 
80 OPEN 15,8,15: 

REM COMMAND CHANNEL 
90 PRINT : 

PRINT 

100 INPUT "FILENAME ";F*: 

PRINT : 

PRINT 
110 T=18: 

s=i: 

REM 1541 DIRECTORY ** T=39 FOR CBM 8050 
120 PRINT#15,"U1 2 0"T!S: 

REM READ 

130 

REM VARIABLE FOR READ SECTOR 
150 FOR 1=1 TO 255: 

BET #2,A*: 

S*=S*+LEFT* <A$+CHR* <0) , 1) : 

NEXT 

160 FOR 1=0 TO 7: 

REM 8 ENTRIES 

170 X*=MID$(S$,1*32+6,16): 

X1*=X* 

ISO REM ISOLATE FILENAME 

190 X=1 

200 IF MID*(X *,X, 1)< >CHR* <160) 

THEN X=X+l: 

IF X< 17 
THEN 200 

210 X$=LEF'T$ ( X$, X—1) 

220 IF X*=F* 

THEN E=I: 

GOTO 300 
230 NEXT I 
240 T=ASC(S*>: 

S=ASC(MID$(S*,2,1 )) 

250 REM READ NEXT SECTOR 
260 IF TOO 

THEN 120 
270 REM END 

280 PRINT "FILE "FT" NOT ON THIS DISKETTE" 

290 CLOSE 2: 

C L U S E 1 u ■ 

END 

300 1$=M1D$ <S$.E*32+3> 

310 TY=ASC<T*> AND 15 
320 IF TY=0 

THEN NEXT 1: 

GOTO 240 
330 IF TY<>4 
THEN 340 
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335 PRINT "RELATIVE FILES CANNOT BE RESCUED" 

337 SOTO 290 

340 T Y*="DELSEQPRSUSRREL" 

350 PRINT "FILE "XI*" "MID*<TY*,TY*3+1,3): 

PRINT 

360 T*=CHR*(ASC < T*) OR 128) 

370 S*=LEFT* < S*,E*32+2)+T*+MID* < S*,E*32+4) 

380 REM * ERASE AND REWRITE 
390 PRINT# 15, "B—F' 2 0"T5S 
400 PRINT#2,S*j 
410 PRINT#15,"U2 2 0"T;3 
420 CLOSE 2: 

CLOSE 15 

425 PRINT "FILE DATA CAN NOW BE READ." 

430 PRINT "AFTER COPYING THE VALID DATA," 

440 PRINT "THE FOLLOWING COMMANDS SHOULD" 

450 PRINT "BE GIVEN:": 

PRINT 

460 PRINT "OPEN 15,8,15" 

470 PRINT CHR*(17)"PRINT#15,"CHR* <34)"S:"F*CHR* <34> 
480 PRINT CHR*(17)"PRINT#15,"CHR*(34)"VO"CHR*(34) 
490 PRINT CHR*(17)"CLOSE 15" 

500 END 
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Chapter 9 : POKE’S and other useful routines 


9.1 Using the cassette buffer as program storage 

If one wants to use a small machine language program in 
conjunction with BASIC, the question always arises 
concerning where such programs should be placed in memory. A 
section of memory must be chosen which will not be 
overwritten by BASIC programs or variables. From this 
viewpoint there are two possibilities. 

The first possibility is that a section of memory can 
be chosen which BASIC does not use at all, and the second is 
that the start or end of the BASIC program storage area can 
be changed. Three areas are unused by BASIC. The first is 
the cassette buffer. It lies from address 828 to 1019 ($033C 
to $03FB). This area is used by a program only when data is 
saved to or read from the cassette recorder. It works very 
well for machine language programs up to 192 bytes long. If 
sprite 13, 14, or 15 is used, the cassette buffer will be 
used to store these. Another small area is from address 704 
to 767 ($02C0 to $02FF) which is used for sprite 11 (64 
bytes). A large 4K-byte area above the BASIC interpreter is 
located fro 49152 to 53247 ($C000 to $CFFF), which should 
suffice for even the longest machine language programs. 

If a few memory locations are needed, there are 16 
bytes "behind" the screen memory which can be used. The 64 
has IK = 1024 bytes of memory for the screen, but only 40*25 
= 1000 are used for the video RAM. 24 bytes are then left 
over, 8 of which are used as pointers for the sprites. 
Sixteen bytes remain which you can use for your own 
purposes. These are located from 2024 to 2039 (hexadecimal 
$07E9 to $07F8). 
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If these areas are not enough or you need more data 
storage area, the BASIC program storage area can be 
decreased and the extra space used by machine language 
programs. You can lower the end of the BASIC program area 
(the usual method) or raise the start. Let’s take a closer 
look at how this is done. 

The BASIC interpreter has two pointers which point to 
the start and end of the BASIC storage. The start-of-BASIC 
pointer is located at 43/44 ($2B/$2C), the end at 55/56 
($37/$38). These values can be read with 

PRINT PEEK(43)+256*PEEK(44) 

PRINT PEEK(55)+256*PEEK(56) 

The values are normally 2049 and 40960. To make room for a 
1000 byte machine language program, we can lower the end of 
BASIC by 1000, leaving it at 39960. We can set the new value 
with POKE statements. 

HB = INT (39960/256) : LB = 39960 - HB*256 
POKE 55,LB : POKE 56,HB : CLR 

The CLR command is necessary to ensure that you do not get 
false variable values. To move the start to 3049, the 
following commands are necessary: 

HB = INT (3049/256) : LB = 3049 - HB*256 
POKE 43, LB : POKE 44,HB : POKE 3049-1,0 : NEW 

Here the NEW command is necessary to properly reset the 
other BASIC pointers. 
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9.2 Sorting strings 

One task which every programmer encounters sooner or 
later is the sorting of data. These could be names, 
addresses, or rows of numbers. There are various known 
algorithms used for sorting, but all of them are time 
consuming when large amounts of data have to be sorted. The 
simplest procedures are also generally the slowest. If one 
needs a faster sort method, one must formulate the algorithm 
not in BASIC but in machine language. For such tasks, 
solutions in machine language are about 100 times faster 
than a comparable BASIC routine. The following program is 
designed to sort strings. In order to keep it short, the 
following conditions must be kept in mind: 

1. The field to be sorted must be the first dimensioned with 
a DIM statement. 

2. An empty string must follow the last array element to be 
sorted. 

Point 2 has the advantage that even a partially filled 
array can be sorted without all of the empty strings being 
placed at the start of the array after sorting. 

With these arrangements, the program is so short that 
we can store it in the cassette buffer. It is called simply 
with SYS 828. The program checks to make sure that the array 
is a one-dimensional string array. If this is not the case, 
the machine language program is immediately ended. 
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0001 

033C 




ORG 

828 


0002 

033C 

AO 

00 


LDY 

#0 


0003 

033E 

B1 

2F 


LDA 

<*2F>, Y 

5 FIRST LETTER 

0004 

0340 

30 

OD 


BMI 

Ll 


0005 

0342 

C8 



I NY 



0006 

R 

0007 

0343 

Bi 

2F 


LDA 

(*2F),Y 

:SECOND LETTE 

0345 

10 

08 


BPL 

Ll 


0000 

0347 

AO 

04 


LDY 

#4 


0009 

0349 

Bl 

2F 


LDA 

<*2F>,Y 

S DIMENSION 

0010 

034B 

C9 

01 


CMF' 

#1 


0011 

034D 

FO 

01 


BEB 

L2 


0012 

034F 

60 


Ll 

RTS 



0013 

0350 

18 


L2 

CLC 



0014 

0351 

AS 

2F 


LDA 

*2F 

SARRAY START 

0015 

0353 

69 

07 


ADC 

#7 

5 PLUS 7 

001 6 

0355 

85 

6E 


STA 

*6E 


0017 

0357 

A5 

30 


LDA 

*30 


0018 

0359 

69 

00 


ADC 

#0 


0019 

035B 

85 

6F 


STA 

*6F 


0020 

035D 

AO 

00 

L3 

LDY 

#0 


0021 

035F 

Bl 

6E 


LDA 

<*6E>,Y 


0022 

0361 

FO 

EC 


BEQ 

Ll 

II LENGTH ZERO, 

DONE 






0023 

0363 

85 

22 


STA 

*22 


0024 

0365 

CB 


L4 

I NY 



0025 

0366 

Bl 

6E 


LDA 

(*6E),Y 


0026 

0368 

99 

22 00 


BYT 

*99,*22,*00 


0027 

036B 



5 LDA 

*22,0 

;POINTER TO 

STRING 

0028 

036B 

CO 

02 


CRY 

#2 


0029 

036D 

DO 

F6 


BNE 

L4 


0030 

036F 

A5 

6E 


LDA 

*6E 


0031 

0371 

85 

71 


STA 

*71 


0032 

0373 

AS 

6F 


LDA 

*6F 


0033 

0375 

85 

72 


STA 

*72 


0034 

0377 

18 


L5 

CLC 



0035 

0378 

A5 

71 


LDA 

*71 


0036 

037A 

69 

03 


ADC 

#3 

5 ADD THREE 

0037 

037C 

85 

71 


STA 

*71 


0038 

037E 

90 

02 


BCC 

L6 


0039 

0380 

E6 

72 


INC 

*72 


0040 

0382 

AO 

00 

L6 

LDY 

#0 


0041 

0384 

Bl 

71 


LDA 

($71) , Y 


0042 

0386 

FO 

3D 


BEB 

L13 


0043 

0388 

85 

4D 


STA 

*4D 

5 COMPARE LENS 

TH 

0044 

038A 

05 

nn 

4.4. 


CMP 

*22 

5 WITH FIRST L 

ENGTH 







0045 

038C 

90 

02 


BCC 

L7 


0046 

038E 

A5 



LDA 

*22 


0047 

0390 

85 

55 

L7 

STA 

*55 

5 COMPARE LEN6 

TH 

0048 

0392 

C8 


LB 

INY 



0049 

0393 

Bl 

71 


LDA 

(*71) , Y 
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0050 

0395 

99 

4D 

00 


BYT 

*99,*4D,*00 


0051 

0398 




; STA 

*4D,'i 

t 


0052 

0398 

CO 

02 



CPY 

#2 


0053 

039A 

DO 

F6 



BNE 

L8 


0054 

039C 

AO 

00 



LDY 

#0 


0055 

RE 

039E 

B1 

23 


L9 

LDA 

<*23>,Y 

SSTRING COMPA 

0056 

03A0 

D1 

4E 



CMP 

<*4E>,Y 


0057 

03A2 

FO 

04 



BEQ 

L10 

5 EQUAL, THEN 

CONTINUE 








0058 

03A4 

BO 

OB 



BCS 

Lll 

5 GREATER THAN 

EXCHANGE 








0059 

03A6 

90 

CF 



BCC 

L5 

5 SMALLER THEN 

NEXT STRING 







0060 

03A8 

C8 



L10 

I NY 



0061 

03A9 

C4 

55 



CPY 

*55 

$ ALL CHARACTE 

RS EQUAL? 








0062 

03AB 

DO 

FI 



BNE 

L9 


0063 

03AD 

C4 

22 



CPY 

*22 

II FIRST STRING 

LONGER 








0064 

03AF 

BO 

C6 



BCS 

L5 

UNO THEN OK 

0065 

03B1 

AO 

02 


LI 1 

LDY 

#2 


0066 

03B3 

Bi 

6E 


L12 

LDA 

<*6E>,Y 

5 SWAP STRING 

POINTERS 








0067 

03B5 

AA 




TAX 



0068 

03B6 

Bl 

71 



LDA 

(*71),Y 


0069 

03B8 

91 

6E 



STA 

<*6E),Y 


0070 

03BA 

99 

22 

00 


BYT 

*99,*22,*00 


0071 

03BD 




; STA 

*22, Y 


0072 

03BD 

8A 




TXA 



0073 

03BE 

91 

71 



STA 

(*71),Y 


0074 

O3C0 

88 




DEY 



0075 

03C1 

10 

FO 



BPL 

L12 


0076 

03C3 

30 

B2 



BMI 

L5 


0077 

03C5 

18 



L13 

CLC 


;POINTER TO N 

EXT STRING 







0078 

03C6 

A5 

6E 



LDA 

*6E 


0079 

03C8 

69 

03 



ADC 

#3 


0080 

03CA 

85 

6E 



STA 

*6E 


0081 

03CC 

90 

BF 



BCC 

L3 


0082 

03CE 

E6 

6F 



INC 

*6F 


0083 

03D0 

DO 

SB 



BNE 

L3 



ASSEMBLY COMPLETE. 
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100 FOR I = 828 TO 977 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 160, 0,177, 47, 48, 13,200,177, 47, 16, 8,160 

130 DATA 4,177, 47,201, 1,240, 1, 96, 24,165, 47,105 

140 DATA 7,133,110,165, 48,105, 0,133,111,160, 0,177 

150 DATA 110,240,236,133, 34,200,177,110,153, 34, 0,192 

160 DATA 2,208,246,165,110,133,113,165,111,133,114, 24 
170 DATA 165,113,105, 3,133,113,144, 2,230,114,160, 0 

180 DATA 177,113,240, 61,133, 77,197, 34,144, 2,165, 34 

190 DATA 133, 85,200,177,113,153, 77, 0,192, 2,208,246 

200 DATA 160, 0,177, 35,209, 78,240, 4,176, 11,144,207 

210 DATA 200,196, 85,208,241,196, 34,176,198,160, 2,177 

220 DATA 110,170,177,113,145,110,153, 34, 0,138,145,113 

230 DATA 136, 16,240, 48,178, 24,165,110,105, 3,133,110 

240 DATA 144,143,230,111,208,139 

250 IF S <> 17663 THEN PRINT "ERROR IN DATA!!" : END 
260 PRINT "OK" 


We can demonstrate the speed of the machine language program 
with a small test program. 

The program creates a given number of strings made up 
of a given maximum number of random letters, displays these 
on the screen, sorts them, and then prints them again, 
together with the time required for the sort. 


100 INPUT "NUMBER, LENGTH";N,L 

110 DIM A$(N) : N=N-1 

120 FOR 1=0 TO N 

130 FOR J=1 TO RND(1)* 1 

140 A$(I) = A$(I)+CHR$(RND(1)*26+65) 

150 NEXT : NEXT 

160 FOR 1=0 TO N : PRINT A$(I) : NEXT 
170 T=TI : SYS 828 : T=TI-T 
180 PRINT "SORT TIME =" T/60 "SECONDS" 
190 FOR 1=0 to N : PRINT A$(I) : NEXT 
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Run this program with various lengths and numbers of 
strings and make note of the sort times. 100 strings can be 
sorted in less than one second. A comparable BASIC program 
would require minutes. 

If you use this program in your programs, remember that 
the last element in the array must be an empty string and 
that the array must be the first dimensioned. 
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9.3 Minimum and maximum of numeric fields 

When performing calculations with dimensioned 
variables, one often needs to know the smallest or largest 
value in the field. This calculation can of course be 
performed by a small BASIC loop, but this takes relatively 
long for large fields. This is a good case for using machine 
language. The program uses the same algorithm as the 
corresponding BASIC variant. 

100 DIM A(N) 

200 GOSUB 1000 

1000 MIN = A(0) 

1010 FOR 1=1 TO N 

1020 IF A(I) < MIN THEN MIN = A(I) 

1030 NEXT 
1040 RETURN 

A field A is dimensioned from 0 to N. By calling the 
subroutine at line 1000, the minimum is calculated and 
returned in the variable MIN. If the maximum is desired, one 
need only replace line 1020 with 

1020 IF A(I) > MAX THEN MAX = A(I) 

and tine 1000 with 

1000 MAX = A(0) 

The machine language program has another advantage over its 
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BASIC counterpart in that it is not restricted to a single 
variable (our example above is limited to the variable A). 
The program will work with real numbers as well as integer 
arrays and resides at address $C800. 


0001 C800 
TION 


0002 C800 

EBER VARIABLE 

INTFLG 

ESU 

0003 C800 

STORE 

EGU 

0004 C800 

RRAY TABLE 

ARRTAB 

EQU 

0005 C800 

ND OF ARRAYS 

ARREND 

E0U 

0006 C800 

E 

VARNAM 

EQU 

0007 C800 

TEMP 

EQU 

0008 C800 

IRST ARRAY ELEMENT 

SETARR 

EQU 

0009 C800 

S IN FAC 

MEMFAC 

EQU 

0010 C800 

TANTS WITH FAC 

CMPARE 

EQU 

0011 C800 

ERROUT 

EQU 

0012 CBOO 

INTEGER VARIABLE 

I NT 

EQU 

0013 CBOO 

AC 

INTFLT 

EQU 

0014 C800 


ORG 

0015 CBOO A6 2F 

MINMAX 

LDX 

0016 C802 A5 30 

TART OF ARRAY TABLE 


LDA 

0017 C804 86 5F 

L3 

STX 

0018 C806 85 60 

TER 


STA 

0019 C808 C5 32 


CMP 

0020 C80A DO 04 


BNE 

0021 C80C E4 31 
TABLE? 


CPX 

0022 C80E FO ID 


BEQ 

0023 C810 AO 00 

LI 

LDY 

0024 CS12 B1 5F 

OF THE NAME 


LDA 

0025 C814 C8 


I NY 

0026 C815 C5 45 
DESIRED NAME 


CMP 

0027 C817 DO 06 


BNE 

0028 C819 A5 46 


LDA 

0029 C81B Dl 5F 

ND CHARACTER 


CMP 



SMIN/MAX FUNC 

14 

SFLAG FOR INT 

$26 


$2F 

SPOINTER TO A 

$31 

S POINTER TO E 

$45 

SVARIABLE NAM 

$5F 


$B196 

5 POINTER TO F 

$BBA2 

; GET CONSTANT 

$BC5B 

SCOMPARE CONS 

$A445 


$14 

;STORAGE FOR 

$B391 

;INTEGER TO F 

$C800 


ARRTAB 


ARRTAB+1 

5 POINTER TO S 

TEMP 


TEMP+1 

5 RUNNING F'OIN 

ARREND+1 


LI 


ARREND 

SEND OF ARRAY 

NOTFND 


#0 


(TEMP),Y 

5 FIRST LETTER 

VARNAM 

SCOMPARE WITH 

L2 


VARNAM+1 


(TEMP),Y 

SCOMPARE SECO 
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0030 

C81D 

FO 

17 



BEQ 

FOUND 

5 FOUND? 


0031 

C81F 

C8 



L2 

I NY 




0032 

C820 

B1 

5F 



LDA 

(TEMP),Y 



0033 

CB22 

18 




CLC 




0034 

C823 

65 

5F 



ADC 

TEMP 

5 ADD OFFSET 

F 

OR NEXT ARRAY 







0035 

C825 

AA 




TAX 




0036 

C826 

CB 




I NY 




0037 

C827 

B1 

5F 



LDA 

(TEMPI,Y 



0038 

C829 

65 

60 



ADC 

TEMF'+l 



0039 

C82B 

90 

D7 



BCC 

L3 



0040 

C82D 

A9 

BB 


NOTFND 

LDA 

#<ERRMSG 

5 POINTER TO 

E 

RROR 

MESSAGE 








0041 

C82F 

85 

22 



STA 

*22 



0042 

C831 

A9 

C8 



LDA 

#>ERRMSG 



0043 

C833 

4C 

45 

A4 


JMP 

ERROUT 

;OUTPUT ERROR 

MESSAGE 









0044 

C836 

C8 



FOUND 

I NY 




0045 

C837 

18 




CLC 




0046 

C838 

B1 

5F 



LDA 

(TEMP),Y 



0047 

CB3A 

65 

5F 



ADC 

TEMP 



0048 

C83C 

85 

26 



STA 

STORE 



0049 

C83E 

C8 




I NY 




0050 

C83F 

B1 

5F 



LDA 

(TEMPI ,y 



0051 

C841 

65 

60 



ADC 

TEMF'+l 



0052 

C843 

85 

27 



STA 

STORE+1 

;POINTER TO 

E 

ND OF THE 

ARRAY 







0053 

C845 

C8 




I NY 




0054 

C846 

B1 

5F 



LDA 

(TEMP)„Y 

5 DIMENSION 


0055 

C848 

20 

96 

B1 


JSR 

SETARR 

?POINTER TO 

F 

IRST 

ARRAY ELEMENT 






0056 

C84B 

85 

5F 



STA 

TEMP 



0057 

C84D 

84 

60 



STY 

TEMP+1 

5 SAVE POINTER 

0058 

C84F 

24 

OE 



BIT 

INTFLG 

5 TEST TYPE 


0059 

C851 

30 

24 



BMI 

INTGER 



0060 

C853 

10 

09 



BPL 

LP1 



0061 

C855 

20 

5B 

BC 

L5 

JSR 

CMF'ARE 

5 COMPARE ARRA 

Y ELEMENTS 








0062 

C858 

10 

07 



BPL 

LOOP 



0063 

C85A 

A5 

5F 



LDA 

TEMP 



0064 

C85C 

A4 

60 



LDY 

TEMP+1 



0065 

C85E 

20 

A2 

BB 

LP1 

JSR 

MEMFAC 

S SAVE ARRAY 

E 

LEMENT AS 

MIN/MAX 






0066 

C861 

18 



LOOP 

CLC 




0067 

C862 

A5 

5F 



LDA 

TEMP 



0068 

C864 

69 

05 



ADC 

#5 

5 POINTER TO 

N 

EXT ELEMENT 








0069 

C866 

85 

5F 



STA 

TEMP 



0070 

CB68 

90 

02 



BCC 

L4 



0071 

C86A 

E6 

60 



INC 

TEMP+1 



0072 

C86C 

A4 

60 


L4 

LDY 

TEMF'+l 
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0073 

C86E 

C5 

26 



CMP 

STORE 

SEND OF THE A 

RRAY 









0074 

C870 

DO 

E3 



BNE 

L5 


0075 

C872 

C4 

27 



CPY 

STORE+1 


0076 

C874 

DO 

DF 



BNE 

L5 


0077 

C876 

60 




RTS 



0078 

v 

C877 

AO 

00 


INTSER 

LDY 

#o 

SINTEGER ARRA 

T 

0079 

C879 

B1 

5F 



LDA 

(TEMP),Y 


0080 

CB7B 

AA 




TAX 



0081 

C87C 

C8 




I NY 



0082 

C87D 

B1 

5F 



LDA 

(TEMP),Y 


0083 

C87F 

85 

15 



STA 

INT+1 

5 GET FIRST VA 

LUE IN INT 







0084 

C881 

86 

14 



BTX 

INT 


0085 

C883 

18 



L12 

CLC 



0086 

C884 

A5 

5F 



LDA 

TEMP 


0087 

C886 

69 

02 



ADC 

#2 

5 POINTER TO N 

EXT ELEMENT 







0088 

CB88 

85 

5F 



STA 

TEMP 


0089 

C88A 

90 

02 



BCC 

L10 


0090 

C88C 

E6 

60 



INC 

TEMP+1 


0091 

C88E 

C5 

26 


no 

CMP 

STORE 


0092 

C890 

DO 

OD 



BNE 

LI 1 


0093 

C892 

A5 

60 



LDA 

TEMP+1 


0094 

C894 

C5 

27 



CMP 

STORE+1 

SEND REACHED? 

0095 

CB96 

DO 

07 



BNE 

LI 1 


0096 

C898 

A5 

14 



LDA 

INT 

5GET INTEGER 

VALUE 








0097 

C89A 

A4 

15 



LDY 

INT+1 


0098 

C89C 

4C 

91 

B3 


JMP 

INTFLT 

5 CONVERT TO F 

AC 









0099 

C89F 

AO 

00 


LI 1 

LDY 

#0 


0100 

C8A1 

B1 

5F 



LDA 

(TEMP),Y 


0101 

C8A3 

C5 

14 



CMP 

INT 

SCOMPARE HIGH 

BYTE 








0102 

C8A5 

DO 

07 



BNE 

L14 


0103 

C8A7 

CB 




INY 



0104 

C8A8 

B1 

5F 



LDA 

(TEMP),Y 


0105 

C8AA 

E5 

15 



SBC 

INT+1 

5 COMPARE LOW 

BYTE 









0106 

C8AC 

FO 

D5 



BEQ 

L12 


0107 

C8AE 

A9 

01 


L14 

LDA 

#1 

5 FLAG FOR GRE 

ATER 









0108 

C8B0 

90 

02 



BCC 

L13 


0109 

C8B2 

A9 

FF 



LDA 

#$FF 

5 FLAG FOR SMA 

LLER 









0110 

C8B4 

30 

Cl 


L13 

BMI 

INTGER 


0111 

C8B6 

10 

CB 



BPL 

L12 


0112 

C8B8 

41 

52 

52 

ERRMSG 

ASC 

’ARRAY NOT 

FOUN’ 



41 

59 

20 







4E 

4F 

54 







20 

46 

4F 







55 

4E 






0113 

C8C6 

C4 




BYT 

*C4 
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100 

FOR I 

= 51200 TO 

51398 






110 

READ 

X : 

POKE I,X 

: s 

=S+X 

: NEXT 




120 

DATA 

166, 

47,165, 

48, 

134, 

95, 

133, 

96,197, 

50,208, 

4 

130 

DATA 

228, 

49,240, 

29, 

160, 

0, 

177, 

95,200, 

197, 69, 

208 

140 

DATA 

6, 

165, 70, 

209, 

95, 

240, 

23, 

200,177, 

95, 24, 

101 

150 

DATA 

95, 

170,200, 

177, 

95, 

101, 

96, 

144,215, 

169,184, 

133 

160 

DATA 

34, 

169,200, 

76, 

69 „ 

164, 

200, 

24,177, 

95,101, 

95 

170 

DATA 

133, 

38,200, 

177, 

95, 

101, 

96, 

133, 39, 

200,177, 

95 

ISO 

DATA 

32, 

150,177, 

133, 

95, 

132, 

96, 

36, 14, 

48, 36, 

16 

190 

DATA 

9, 

32, 91, 

188, 

16, 

7, 

165, 

95,164, 

96, 32, 

162 

200 

DATA 

187, 

24,165, 

95, 

105, 

5 , 

133, 

95,144, 

2,230, 

96 

210 

DATA 

164, 

96,197, 

38, 

208, 

227 

196, 

39,208, 

223, 96, 

160 

220 

DATA 

0, 

177, 95, 

170, 

200, 

177, 

95, 

133, 21, 

134, 20, 

24 

230 

DATA 

165, 

95,105, 

2, 

133, 

95, 

144, 

2,230, 

96,197, 

38 

240 

DATA 

208, 

13,165, 

96, 

197, 

39, 

208, 

7,165, 

20,164, 

21 

250 

DATA 

76, 

145,179, 

160, 

0, 

177, 

95, 

197, 20, 

208, 7, 

200 

260 

DATA 

177, 

95,229, 

21, 

240, 

213, 

169, 

1,144, 

2,169, 

255 

270 

DATA 

48, 

193, 16, 

203, 

65, 

82, 

82, 

65, 89, 

32, 78, 

79 

280 

DATA 

84, 

32, 70, 

79, 

85, 

78, 

196 




290 

IF S 

<> 22908 THEN PRINT 

"ERROR IN DATA! ! 

" : END 


300 

PRINT 

"OK 

II 









The version printed here calculates the maximum of an 
array. If you want to calculate the minimum, you must 
reverse the branch logic after the comparisons. The contents 
of the following addresses must be changed: 
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C858 from $10 to $30 

C8B4 from $30 to $10 

C8B6 from $10 to $30 

To use the function, you must first set the address for the 
USH function: 

POKE 785,0 : POKE 786,200 

Now you can call the function with PRINT USR(A) in 
which A is the name of the array. The USR function can be 
called as any other, for example X = USR(ASs)*SIN(3). 

The following small program will serve to demonstrate the 
function. 

100 POKE 785,0 : POKE 786,200 
110 INPUT "ARRAY SIZE ";N 
120 DIM A(N) 

130 FOR 1=0 TO N 

140 A(I) = RND (1)*1000 

150 PRINT A(I) 

160 NEXT 

170 PRINT 

180 PRINT USR(A) 

The switch from MAX to MIN functions can be made by changing 
the three previously-mentioned values with POKE statements: 

POKE 51288,48 (or back to 16) 

POKE 51380,16 (or back to 48) 

POKE 51382,48 (or back to 16) 
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9.4 DUMP command for variable output 


The following machine language program is very useful 
for debugging BASIC programs. It prints out all of the BASIC 
variables together with their values. The program is stored 
in the cassette buffer and is called with SYS 828. 


0001 033C 



ORG 

828 

;CASSETTE BUF 

FER 






0002 033C A5 

2D 


LDA 

*2D 


0003 033E A4 

2E 


LDY 

*2E 

5 POINTER TO S 

TART OF VARIABLES 





0004 0340 85 

14 

LO 

STA 

*14 

5SAVE 

0005 0342 84 

15 


STY 

*15 


0006 0344 04 

30 


CPY 

*30 

;COMPARE WITH 

END OF VARIABLES 





0007 0346 DO 

02 


BNE 

LI 


0008 0348 05 

2F 


CMP 

*2F 


0009 034A BO 

18 

LI 

BCS 

L3 

STO END, THEN 

DONE 






0010 034C 69 

02 


ADC 

#2 

SPOINTER TO V 

ARIABLE VALUE 





0011 034E 90 

01 


BCC 

L2 


0012 0350 C8 



I NY 



0013 0351. 85 

22 

L2 

STA 

*22 


0014 0353 84 

23 


STY 

*23 


0015 0355 20 

82 03 


JSR 

L7 

5 OUTPUT NAME 

0016 0358 20 

B6 03 


J SR 

L12 

; OUTPUT 

0017 035B 8A 



TXA 



0018 035C 10 

07 


BF'L 

L4 


0019 035E 20 

BF 03 


JSR 

L13 

;OUTPUT INTEG 

ER VARIABLE 






0020 0361 4C 

71 03 


JMF' 

L6 

5 TO MAIN LOOP 

0021 0364 60 


L3 

RTS 



0022 0365 98 


L4 

TYA 



0023 0366 30 

06 


BMI 

L5 


0024 0368 20 

CF 03 


JSR 

L14 

;OUTPUT FLOAT 

ING—POINT NUMBER 





0025 036B 4C 

71 03 


JMF' 

L6 


0026 036E 20 

D8 03 

L5 

JSR 

LI 6 

5 OUTPUT STRIN 

G VARIABLE 






0027 0371 A9 

OD 

L6 

LDA 

#13 

j CARRIAGE RET 

URN 






0028 0373 20 

D2 FF 


JSR 

*FFD2 

5 OUTPUT 

0029 0376 A5 

14 


LDA 

*14 


0030 0378 A4 

15 


LDY 

*15 


0031 037A 18 



CLC 
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0032 

037B 

69 

07 



ADC 

#7 

; ADD 7 FOR NE 

XT VARIABLE 







0033 

037D 

90 

Cl 



BCC' 

LO 


0034 

037F 

CB 




INY 



0035 

0380 

BO 

BE 



BCS 

LO 

5 TO MAIN LOOP 

0036 

0382 

AO 

00 


L7 

LDY 

#0 


0037 

0384 

B1 

14 



LDA 

(f14),Y 

5 FIRST LETTER 

OF NAME 








0038 

0386 

AA 




TAX 



0039 

0387 

29 

7F 



AND 

#47F 


0040 

0389 

20 

D2 

FF 


J SR 

4FFD2 

;OUTPUT 

0041 

038C 

CB 




INY 



0042 

038D 

B1 

14 



LDA 

(414)„Y 

;SECOND CHARA 

CTER 









0043 

038F 

A8 




TAY 



0044 

0390 

29 

7F 



AND 

#47F 


0045 

0392 

FO 

03 



BEG 

L8 


0046 

0394 

20 

D2 

FF 


JSR 

4FFD2 

5 OUTPUT 

0047 

0397 

8A 



L8 

TXA 



0048 

0398 

10 

11 



BPL 

L10 

STEST TYPE 

0049 

039A 

98 




TYA 



0050 

039B 

30 

OA 



BMI 

L9 


0051 

039D 

A9 

21 



LDA 

#' ! ’ 

5 FUNCTION, OU 

TPUT 

■ i ? 








0052 

039F 

20 

D2 

FF 


JSR 

4FFD2 


0053 

03A2 

68 




PLA 



0054 

03A3 

68 




PLA 



0055 

03A4 

4C 

71 

03 


JMP 

L6 

,JUMP BACK TO 

MAIN LOOP 







0056 

03A7 

A9 

25 


L9 

LDA 

#’•/.’ 

i INTEGER VARI 

ABLE 









0057 

03A9 

DO 

4E 



BNE 

L19 


0058 

03AB 

98 



L10 

TYA 



0059 

03AC 

10 

04 



BPL 

LI 1 


0060 

03AE 

A9 

24 



LDA 


5 STRING VARIA 

BLE 









0061 

03B0 

DO 

47 



BNE 

L19 


0062 

03B2 

60 



L11 

RTS 



0063 

03B3 

20 

D2 

FF 


JSR 

4FFD2 

;OUTPUT CHARA 

CTER 









0064 

03B6 

A9 

20 


L12 

LDA 

#420 


0065 

03B8 

20 

D2 

FF 


JSR 

4FFD2 

5 OUTPUT BLANK 

0066 

03BB 

A9 

3D 



LDA 

#’=’ 


0067 

03BD 

DO 

3 A 



BNE 

L19 

;OUTPUT 

0068 

03BF 

AO 

00 


LI 3 

LDY 

#0 

5 INTEGER VARI 

ABLE 









0069 

03C1 

B1 

22 



LDA 

(422),Y 

5 LOW BYTE 

0070 

03C3 

AA 




TAX 



0071 

03C4 

C8 




INY 



0072 

03C5 

B1 

22 



LDA 

(422),Y 

5 HIGH BYTE 

0073 

03C7 

A8 




TAY 



0074 

03C8 

8A 




TXA 



0075 

03C9 

20 

95 

B3 


JSR 

4B395 

5 CONVERT TO F 


LOATING POINT 
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0076 

03CC 

4C 

D2 

03 


JMP 

L15 

SAND OUTPUT 

0077 

03CF 

20 

A6 

BB 

L14 

JSR 

$BBA6 

S GET FLOATING 

-POINT VARIABLE 






0078 

03D2 

20 

DD 

BD 

L15 

JSR 

$BDDD 

SCONVERT TO A 

SCI I 

STRING 







0079 

03D5 

4C 

IE 

AB 


JMP 

$AB1E 

SAND OUTPUT 

0080 

03D8 

20 

F7 

03 

L16 

JSR 

L18 

SOUTPUT STRIN 

G, QUOTE 








0081 

03DB 

AO 

02 



LDY 

#2 


0082 

03DD 

B1 

22 



LDA 

($22),Y 

SADDRESS HIGH 

0083 

03DF 

85 

25 



STA 

$25 


0084 

03E1 

88 




DEY 



0085 

03E2 

B1 

22 



LDA 

($22),Y 

5 ADDRESS LOW 

0086 

03E4 

85 

24 



STA 

$24 


0087 

03E6 

88 




DEY 



0088 

03E7 

B1 

22 



LDA 

($22),Y 

SLENGTH 

0089 

03E9 

85 

26 



STA 

$26 


0090 

03EB 

FO 

OA 



BEQ 

LIB 


0091 

03ED 

B1 

24 


L17 

LDA 

($24),Y 

SOUTPUT CHARA 

CTERS 








0092 

03EF 

20 

D2 

FF 


JSR 

$FFD2 

5 OF STRING 

0093 

03F2 

CB 




I NY 



0094 

03F3 

C4 

26 



CF'Y 

$26 

5 STRING DONE? 

0095 

03F5 

DO 

F6 



BNE 

L17 


0096 

03F7 

A9 

22 


L18 

LDA 

#$22 

5 QUOTE 

0097 

03F9 

4C 

D2 

FF 

L19 

JMP 

$FFD2 

S OUTPUT 


100 FOR X = 828 TO 1019 


110 

READ 

X : 

POKE 

i,x : s=s+x 

: l 

120 

DATA 

165, 

45, 

164, 46,133, 

20 

130 

DATA 

197, 

47, 

176, 24,105, 

2 

140 

DATA 

35, 

32, 

130, o*, o2. 

182 

150 

DATA 

3, 

76, 

113, 3, 96, 

152 

160 

DATA 

113, 

3, 

32,216, 3, 

169 

170 

DATA 

164, 

21, 

24,105, 7, 

144 

180 

DATA 

177, 

20, 

170, 41,127, 

32 


NEXT 

!• 1 P 

, 144, 

9 

, 48, 

s 1 , 


21,196, 


1 , 

38 


100 
16 
6, 32 
210 
176 
200 


210,255, 

32,210,255,138, 16 
,210,255,104,104, 76 


190 DATA 41,127,240, 

200 DATA 10,169, 33, 

210 DATA 37,208, 78,152^ 16, 4,169, 36,208 

220 DATA 210,255,169, 32, 32,210,255,169, 61 
230 DATA 0,177, 34,170,200,177, 34,168,138 
240 DATA 76,210, 3, 32,166,187, 32,221,189 

250 DATA 32,247, 3,160, 2,177, 34,133, 37 

260 DATA 133, 36,136,177, 34,133, 38,240, 10 
270 DATA 210,255,200,196, 38,208,246,169' 34 
280 IF S <> 20988 THEN PRINT "ERROR IN DATA 1 
290 PRINT "OK" 


48,208, 
133, 34, 
7, 32, 

207, 3, 
255,165, 
190,160, 
177, 20, 

17,152, 
113, 3 

71, 96 

208, 58 
32,149 
76, 30 

136,177 
177, 36, 
76,210, 
" : END 


132 

191 

76 

20 

0 

168 

48 

169 

32 

160 

179 

171 

34 
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If you run the following program, you will receive the 
output shown below it. 

100 A=5 

110 DEF FNX (Y) = SIN(Y) * COS(Y) 

120 C$ = "PROGRAM'' 

130 B$ = -101 
140 SYS 828 


A = 5 
X! 

Y = 0 

C$ ="PR0GRAM" 
B% =-101 


You can also execute the DUMP function in the direct mode 
with SYS 828. If you stop a program, you can view the actual 
variable contents and then continue with the program using 
the CONT command. As you see in the above example, user- 
defined functions are indicated by a "!" after the function 
name. 
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9.6 Modified PEEK function 

The following small machine language program provides 
an elegant way of using the additional RAM storage of the 
Commodore 64. At the same time, it also allows you to read 
the character generator data from BASIC. A few 
clarifications: 

The memory areas from $A000 to $BFFF (40960 to 49151) 
and $B000 to $FFFF (57344 to 65535) are doubly allocated: 
First with 8K BASIC ROM and 8K kernal ROM, respectively, and 
then with 8K of RAM each. These 16K bytes of RAM cannot be 
used from BASIC without modification. POKE commands write 
directly to the RAM, but a read attempt with PEEK always 
reads from the ROM. Here we replace the PEEK function with 
our own USR function. The function must do the following: 
Before the value of a memory location is read, the memory 
configuration must be changed so that the RAM "beneath" the 
ROM is activated. Now the value can be read. Finally, the 
old configuration must be restored. In addition, we would 
like to be able to read the character generator which 
resides from location $D000 to $DFFF. The routine checks to 
see if the PEEK address lies between $D000 and $DFFF. If so, 
the memory configuration will be set such that the character 
generator can be read. The value is then read and the memory 
configuration returned to normal. 
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0001 033C 


0002 033C 




ADR 

EQU 

ESS 






0003 033C 




FACADR 

EQU 

0004 033C 




YFAC 

EQU 

0005 033C 





ORG 

FER 






0006 033C 

A5 

14 



LDA 

0007 033E 

48 




F'HA 

ADDRESS 






0008 033F 

A5 

15 



LDA 

0009 0341 

48 




PHA 

0010 0342 

20 

F7 

B7 


JSR 

TO ADDRESS FORMAT 



0011 0345 

A5 

01 



LDA 

0012 0347 

48 




PHA 

RATION 






0013 0348 

A5 

15 



LDA 

0014 034A 

09 

DO 



CMP 

$D000 






0015 034C 

90 

07 



BOO 

0016 034E 

09 

EO 



CMP 

$E000 






0017 0350 

BO 

03 



BOS 

0018 0352 

A9 

31 



LDA 

ARACTER GENERATOR 



0019 0354 

20 




BYT 

0020 0355 

A9 

34 


RAM 

LDA 

M 






0021 0357 

78 




SEI 

0022 0358 

85 

01 



STA 

ONFIGURATION 





0023 035A 

AO 

00 



LDY 

0024 0350 

B1 

14 



LDA 

0025 035E 

AS 




TAY 

0026 035F 

68 




PLA 

0027 0360 

85 

01 



STA 

AT I ON 






0028 0362 

58 




CL I 

0029 0363 

68 




PLA 

0030 0364 

85 

15 



STA 

0031 0366 

68 




PLA 

BACK 






0032 0367 

85 

14 



STA 

0033 0369 

40 

A2 

B3 


JMP 


FAC 


*14 

;USR - PEEK 
;INTEGER ADDR 

$B7F7 

$B3A2 

828 

;CASSETTE BUF 

ADR 

5 SAVE INTEGER 

ADR+1 

FACADR 

5 CONVERT FAC 

1 

;SAVE CONFIGU 

ADR+1 

#$D0 

", SMALLER THAT 

RAM 

#$E0 

;GREATER THAN 

RAM 

#$31 

$ READ FROM CH 

$20 

#$34 

;READ FROM RA 

1 

5 SET MEMORY C 

#0 

(ADR),Y 

jREAD BYTE 

1 

;GET CONFIGUR 

ADR+1 

5 GET ADDRESS 

ADR 

YFAC 

5 CONVERT Y TO 


263 



Tricks & Tips 


The program is stored in the cassette buffer at address 828. 
Once you have entered or loaded the program, the start 
address of the program must be assigned to the USB vector. 
This is done with two POKEs: 


POKE 785, 828 AND 255 
POKE 786, 828 / 256 


For those who do not have an assembler, we have again 
provided a loader program in BASIC, which also initializes 
the USR vector for you. 


100 FOR I = 828 TO 875 

110 READ X : POKE I,X : S=S+X : NEXT 


120 DATA 165, 20, 72,165, 21 

130 DATA 165, 21,201,208,144 

140 DATA 44,169, 52,120,133 

150 DATA 133, 1, 88,104,133 

160 IF S <> 5085 THEN PRINT 
170 POKE 785, 828 AND 255 : 
180 PRINT "OK" 


, 72, 32,247,183,165, 1, 72 

, 7,201,224,176, 3,169, 49 

, 1,160, 0,177, 20,168,104 

, 21,104,133, 20, 76,162,179 
"ERROR IN DATA!!" : END 
POKE 786, 82B/256 


Now, if you want to read from the HAM or character 
generator, you simply replace the PEEK function with the USR 
function. To read the character matrix of a character, for 
example, you could use the following program: 


100 CG=13*4096 

110 A = (PEEK(53248+24) AND 2) * 1024 
120 INPUT "CHARACTER CODE ";C 
130 FOR 1=0 TO 7 

140 PRINT I, USR(CG+A+8*C+I) : NEXT 
150 GOTO 110 


264 



Tricks & Tips 


tine 110 chooses between the upper or lower half of the 
character generator which selects between the upper 
case/graphics set or the upper/lower case set. 

This new "PEEK" function gives you up to 16K of RAM 
which you can use to store data in BASIC or whatever else 
you like. 
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9.6 Multi-tasking on the Commodore 64 

Multi-tasking is a term originally associated with 
mainframe computers and refers to the ability of a computer 
to execute several programs simultaneously. How does 
something like this work? 

Even a mainframe can only do one thing at a time, so 
another trick is used: 

If, for example, the computer is supposed to run five 
programs at once, it will start executing the first the 
program and after a certain length of time (a fraction of a 
second) will stop executing it, save the variables, and 
start executing the next program. This program too will be 
interrupted after a short time and the computer will 
continue executing the next one. Once all of the programs 
have been executed once, the variables from the first 
program are fetched and the execution of this program 
continues. The computer’s time is divided up into "time 
slices" among the various programs. The term "time-sharing” 
is also used to describe this. 

In a limited sense, this sort of thing is also possible 
on the Commodore 64. Two programs within the 64 run 
simultaneously: the BASIC interpreter and the so-called 
interrupt service routine which is called and executed 60 
times per second. While your BASIC program is being 
executed, it is being interrupted 60 times a second in order 
to execute this interrupt routine. This routine takes care 
of such things as reading the keyboard. 

Here we can attach our own routine and perform 
additional tasks of our own during the interrupt. One use of 
this might be to output text on the printer. At each 
interrupt a character could be fetched from a buffer and 
sent to the printer. The user could then continue with his 
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BASIC program as usual. 

As an example of this procedure we have written a 
program which displays the time, including tenths of a 
second, on the screen, even while another program is 
running. The program uses the Commodore 64’s real-time 
clock. The time is automatically and constantly displayed in 
the upper right-hand corner of the screen. The program is 
written in machine language but can also be entered using 
the BASIC loader program listed after the assembly language 
source code. 


0001 CSOO 

0002 CSOO 

SS ? ,COLOR 

0003 C800 

0004 C800 

FRMEVL 

EQU 

*AD9E 

;TIME DISPLAY 

5 SYS AD.’HHMM 

J 

5 GET BASIC EX 

PRESSION 

0005 C800 

FRESTR 

EQU 

*B6A3 


0006 CSOO 

CHKCOM 

EQU 

*AEFD 

5 CHECK FOR CO 

MMA 

0007 CSOO 

CHRBOT 

EQU 

*79 


0008 CSOO 

SETBYT 

EQU 

*B79E 

5 GET BYTE EXP 

RESSION 

0009 C800 

ILLQUA 

EQU 

*B248 

5’ILLEGAL QUA 

NTITY’ 

0010 CSOO 

ADR 

EQU 

*22 


0011 CBOO 

COLOR 

EQU 

*2A7 

5 STORAGE FOR 

COLOR VALUE 

0012 CSOO 

VIDEO 

EQU 

*288 

5 HI BYTE VIDE 

0 RAM 

0013 CSOO 

TEMP 

EQU 

*FB 


0014 CSOO 

IRQ 

EQU 

*314 

5 IRQ VECTOR 

0015 CSOO 

F'NT 

EQU 

*FB 


0016 CBOO 

IRQVEC 

EQU 

*EA31 

5NORMAL IRQ V 

ECTOR 

0017 C800 

CLR 

EQU 

*D800 

5 COLOR RAM 

0018 CBOO 

TENTHS 

EQU 

*DC08 

5REAL TIME CL 

OCK CIA 1 

0019 CSOO 

SECOND 

EQU 

TENTHS+1 


0020 CBOO 

MINUTE 

EQU 

SECOND+1 


0021 CSOO 

HOURS 

EQU 

MINUTE+1 


0022 CSOO 

TRIBER 

EQU 

HOURS+3 

550/60 HZ 

0023 CSOO 

SET 

EQU 

TRI6ER+1 

?SET TIME/ALA 


RM 

0024 C800 ORB *C800 

0025 CSOO AD OE DC LDA TRIBER 

0026 C803 09 80 ORA #*80 5 50 HZ MODE 
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0027 

C805 

8D 

OE 

DC 


STA 

TRIGER 


0028 

C808 

AD 

OF 

DC 


LDA 

SET 


0029 

CBOB 

29 

7F 



AND 

#*7F 

;SET TIME 

0030 

C80D 

8D 

OF 

DC 


STA 

SET 


0031 

C810 

20 

79 

00 


JSR 

CHRGOT 

5 ADDITIONAL C 

ODE? 









0032 

C813 

FO 

65 



BEQ 

CHGIRQ 

;SWITCH CLOCK 

0033 

C815 

20 

FD 

AE 


JSR 

CHKCOM 


0034 

C818 

20 

9E 

AD 


JSR 

FRMEVL 

5 GET STRING 

0035 

CB1B 

20 

A3 

B6 


JSR 

FRESTR 

5 PARAMETER 

0036 

ry, 

C81E 

09 

06 



CMP 

#6 

;6 CHARACTERS 

0037 

C820 

DO 

6B 



BNE 

ILL 

5 ILLEGAL QUAN 

TITY 









0038 

C822 

AO 

00 



LDY 

#0 


0039 

C824 

B1 

22 



LDA 

(ADR),Y 


0040 

C826 

38 




SEC 



0041 

C827 

E9 

30 



SBC 

#’0' 

;TO HEX 

0042 

C829 

09 

03 



CMP 

#3 


0043 

C82B 

BO 

60 



BCS 

ILL 


0044 

C82D 

OA 




ASL 



0045 

C82E 

OA 




ASL 



0046 

C82F 

OA 




ASL 



0047 

C830 

OA 




ASL 



0048 

C831 

85 

FB 



STA 

TEMP 


0049 

C833 

08 




I NY 



0050 

C834 

B1 

22 



LDA 

(ADR),Y 


0051 

C836 

38 




SEC 



0052 

C837 

E9 

30 



SBC 

#’0' 


0053 

CB39 

09 

OA 



CMP 

#10 


0054 

C83B 

BO 

50 



BCS 

ILL 


0055 

C83D 

05 

FB 



ORA 

TEMP 


0056 

C83F 

DO 

04 



BNE 

NOTNUL 


0057 

CB41 

A9 

92 



LDA 

#*92 

;12 O'CLOCK P 

n 

0058 

C843 

DO 

OF 



BNE 

SETSTD 


0059 

CB45 

09 

24 


NOTNUL 

CMP 

#*24 


0060 

C847 

BO 

44 



BCS 

ILL 


0061 

C849 

09 

13 



CMP 

#*13 


0062 

C84B 

90 

07 



BCC 

SETSTD 


0063 

C84D 

38 




SEC 



0064 

C84E 

F8 




SED 



0065 

C84F 

E9 

12 



SBC 

#*12 


0066 

0851 

D8 




CLD 



0067 

CB52 

09 

80 



ORA 

#*80 

j SET PM 

0068 

0854 

8D 

OB 

DC 

SETSTD 

STA 

HOURS 


0069 

0857 

20 

FD 

C8 


JSR 

GET59 

5 GET MINUTES 

0070 

C85A 

8D 

OA 

DC 


STA 

MINUTE 


0071 

C85D 

20 

FD 

CB 


JSR 

GET59 


0072 

0860 

8D 

09 

DC 


STA 

SECOND 


0073 

0863 

A9 

00 



LDA 

#0 


0074 

0865 

8D 

08 

DC 


STA 

TENTHS 

5 START CLOCK 

0075 

0868 

20 

79 

00 


JSR 

CHRGOT 


0076 

C86B 

FO 

OD 



BEQ 

CHGIRQ 


0077 

C86D 

20 

FD 

AE 


JSR 

CHKCOM 
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0078 

C870 

20 

9E 

B7 


JSR 

GETBYT 

iCOLOR 

0079 

C873 

EO 

10 



CPX 

#16 


0080 

C875 

BO 

16 



BCS 

ILL 


0081 

CB77 

BE 

A7 

02 


STX 

COLOR 

5 SAVE COLOR C 

ODE 









0082 

CB7A 

78 



CHGIRQ 

SEI 


;EXCHANGE IRQ 

VECTORS 








0083 

C87B 

AD 

14 

03 


LDA 

IRQ 


0084 

C87E 

49 

A1 



EOR 

#*A1 

5 #<IRQVEC EOR 

TIMIRQ 








0085 

C880 

8D 

14 

03 


STA 

IRQ 


0086 

C883 

AD 

15 

03 


LDA 

IRQ+1 


0087 

C886 

49 

22 



EOR 

#*22 

!#>IRQVEC EOR 

TIMIRQ 








0088 

C888 

8D 

15 

03 


STA 

IRQ+1 


0089 

C88B 

58 




CL I 



0090 

C88C 

60 




RTS 



0091 

CB8D 

4C 

48 

B2 

ILL 

JMP 

ILLQUA 


0092 

C890 







;DISPLAY ROUT 

INE 









0093 

C890 

A5 

FB 


TIMIRQ 

LDA 

PNT 


0094 

C892 

48 




PHA 



0095 

C893 

A5 

FC 



LDA 

PNT+1 

;SAVE POINTER 

0096 

C895 

48 




PHA 



0097 

C896 

AD 

88 

02 


LDA 

VIDEO 

5HIGH BYTE OF 

VIDEO RAM 







0098 

C899 

85 

FC 



STA 

PNT+1 


0099 

C89B 

A9 

00 



LDA 

#0 


0100 

C89D 

85 

FB 



STA 

PNT 

;POINTER TO V 

IDED 

RAM 








Old 

C89F 

AO 

IE 



LDY 

#30 

j30TH COLUMN 

0102 

C8A1 

AD 

OB 

DC 


LDA 

HOURS 


0103 

C8A4 

C9 

12 



CMP 

#*12 


0104 

C8A6 

FO 

11 



BEQ 

ZEROCK 


0105 

C8A8 

C9 

80 



CMP 

#*80 


0106 

C8AA 

90 

OF 



BCC 

STDOUT 

HAM 

0107 

C8AC 

29 

7F 



AND 

#*7F 


0108 

CBAE 

C9 

12 



CMP 

#*12 


0109 

C8B0 

FO 

09 



BEQ 

STDOUT 


0110 

C8B2 

F8 




SED 



0111 

C8B3 

18 




CLC 



0112 

C8B4 

69 

12 



ADC 

#*12 


0113 

C8B6 

D8 




CLD 



0114 

C8B7 

DO 

02 



BNE 

STDOUT 


0115 

C8B9 

A9 

00 


ZEROCK 

LDA 

#0 


0116 

C8BB 

20 

DB 

CB 

STDOUT 

JSR 

PRINT 

5 DISPLAY HOUR 

0117 

C8BE 

AD 

OA 

DC 


LDA 

MINUTE 


0118 

C8C1 

20 

DB 

C8 


JSR 

PRINT 

5 DISPLAY MINU 

TES 









0119 

C8C4 

AD 

09 

DC 


LDA 

SECOND 


0120 

C8C7 

20 

DB 

C8 


JSR 

PRINT 

5 DISPLAY SECO 

NDS 









0121 

C8CA 

AD 

08 

DC 


LDA 

TENTHS 


0122 

CBCD 

09 

30 



ORA 

#’0’ 
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0123 

C8CF 

20 

F3 

CB 


JSR 

PRINTI 

j DISPLAY TENT 

HS 









0124 

C8D2 

68 




PLA 



0125 

C8D3 

85 

FC 



BTA 

F'NT+1 


0126 

C8D5 

68 




PLA 


j GET POINTER 

BACK 









0127 

C8D6 

85 

FB 



STA 

PNT 


0128 

C8D8 

4C 

31 

EA 


JMP 

IRQVEC 

STD OLD IRQ 

0129 

C8DB 

48 



PRINT 

PHA 


;DISPLAY 

0130 

C8DC 

29 

FO 



AND 

#*F0 


0131 

C8DE 

4A 




LSR 



0132 

C8DF 

4A 




LSR 



0133 

C8E0 

4A 




LSR 



0134 

CBE1 

4A 




LSR 



0135 

C8E2 

18 




CLC 



0136 

C8E3 

69 

30 



ADC 

#’0 5 


0137 

C8E5 

20 

F3 

CB 


JSR 

F'RINTl 


0138 

C8E8 

68 




PLA 



0139 

C8E9 

29 

OF 



AND 

#*0F 


0140 

C8EB 

IB 




CLC 



0141 

C8EC 

69 

30 



ADC 

#’0’ 


0142 

CBEE 

20 

F3 

C8 


JSR 

PRINT1 


0143 

C8F1 

A9 

3A 



LDA 

#’: J 


0144 

C8F3 

91 

FB 


F'RINTl 

STA 

(PNT),Y 

5 CHARACTER 

0145 

C8F5 

AD 

A7 

02 


LDA 

COLOR 


0146 

C8F8 

99 

00 

D8 


STA 

CLR, Y 

j AND COLOR 

0147 

C8FB 

C8 




I NY 



014B 

C8FC 

60 




RTS 



0149 

C8FD 

C8 



GET59 

INY 



0150 

C8FE 

B1 

22 



LDA 

(ADR),Y 


0151 

C900 

38 




SEC 



0152 

C901 

E9 

30 



SBC 

#’0’ 


0153 

C903 

C9 

06 



CMP 

#6 


0154 

C905 

BO 

86 


ILL1 

BCS 

ILL 


0155 

C907 

OA 




ASL 



0156 

C908 

OA 




ASL 



0157 

C909 

OA 




ASL 



0158 

C90A 

OA 




ASL 



0159 

C90B 

85 

FB 



STA 

TEMP 


0160 

C90D 

C8 




INY 



0161 

C90E 

B1 

22 



LDA 

(ADR),Y 


0162 

C910 

38 




SEC 



0163 

C911 

E9 

30 



SBC 

ro’ 


0164 

C913 

C9 

OA 



CMP 

#10 


0165 

C915 

BO 

EE 



BCS 

ILLl 


0166 

C917 

05 

FB 



ORA 

TEMP 


0167 

C919 

60 




RTS 
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100 FOR I = 51200 TO 51481 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 173, 14,220, 9,128,141, 14,220,173, 15,220, 41 

130 DATA 127,141, 15,220, 32,121, 0,240,101, 32,253,174 

140 DATA 32,158,173, 32,163,182,201, 6,208,107,160, 0 

150 DATA 177, 34, 56,233, 48,201, 3,176, 96, 10, 10, 10 

160 DATA 10,133,251,200,177, 34, 56,233, 48,201, 10,176 
170 DATA 80, 5,251,208, 4,169,146,208, 15,201, 36,176 

180 DATA 68,201, 19,144, 7, 56,248,233, 18,216, 9,128 

190 DATA 141, 11,220, 32,253,200,141, 10,220, 32,253,200 

200 DATA 141, 9,220,169, 0,141, 8,220, 32,121, 0,240 

210 DATA 13, 32,253,174, 32,158,183,224, 16,176, 22,142 
220 DATA 167, 2,120,173, 20, 3, 73,161,141, 20, 3,173 

230 DATA 21, 3, 73, 34,141, 21, 3, 88, 96, 76, 72,178 

240 DATA 165,251, 72,165,252, 72,173,136, 2,133,252,169 

250 DATA 0,133,251,160, 30,173, 11,220,201, 18,240, 17 

260 DATA 201,128,144, 15, 41,127,201, 18,240, 9,24B, 24 

270 DATA 105, 18,216,208, 2,169, 0, 32,219,200,173, 10 

280 DATA 220, 32,219,200,173, 9,220, 32,219,200,173, 8 

290 DATA 220, 9, 48, 32,243,200,104,133,252,104,133,251 

300 DATA 76, 49,234, 72, 41,240, 74, 74, 74, 74, 24,105 

310 DATA 48, 32,243,200,104, 41, 15, 24,105, 48, 32,243 

320 DATA 200,169, 58,145,251,173,167, 2,153, 0,216,200 

330 DATA 96,200,177, 34, 56,233, 48,201, 6,176,134, 10 

340 DATA 10, 10, 10,133,251,200,177, 34, 56,233, 48,201 
350 DATA 10,176,238, 5,251, 96 

360 IF S <> 32970 THEN PRINT "ERROR IN DATA!!" : END 
370 PRINT "OK" 
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Once you have loaded the program, the clock can be turned on 
by entering the following command: 

SYS 51200,"HHMMSS",COLOR 

where "HHMMSS" is the current time (Hours, Minutes, Seconds) 
and COLOR is the color code for the time display (from 0 to 
15). To set the clock to 2:30 P.M. (since this is a 24-hour 
clock we must enter 14:30) and 15 seconds, with the time 
displayed in yellow, we would use the following command: 

SYS 51200, ”143015",7 

The current time will now appear in the upper-right corner 
of the display with hours, minutes, seconds, and tenths of 
seconds. To turn the display off, enter 

SYS 51200 

To turn it back on again without resetting the time or 
color, simply type 

SYS 51200 

and the time will appear again. 


In principle there are two methods for inserting the 
second "job" in multi-tasking: 

The first option is to use the system interrupt routine 
which is called every sixtieth of a second. This method is 
used for our routine to display the time. This is done by 
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changing the interrupt vector so that it points to our 
routine. Our routine then ends with a jump to the original 
interrupt routine so that the computer can complete its 
operations. 

The second method gives the user routine its own 
interrupt. This could be done with the output to the 
printer, for example. The BUSY line of the printer could be 
used as the interrupt source. Each time the printer is ready 
to receive a character it initiates an interrupt. The 
interrupt routine sends a character to the printer then 
continue with the normal program. Once the printer has 
printed the character, it generates another interrupt, 
forcing the computer to send it another character. The user 
of the computer notices nothing of this. 

You will need to know quite a bit about the operating 
system of the 64 to implement these routines, information 
which you will find in the book The Anatomy of the Commodore 
64. 
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9.7 POKEs and zero page 

As you have surely noticed, there are various addresses 
which are of use in programming in BASIC as well as in 
machine language. Here is a short list of some of the 
addresses (all of the pointers are stored in LSB, MSB 
order): 

Address: (possible) Application: 


0000-0001 A specific area of memory can be 

switched on or off by POKEing to one or 
both of these locations. 

0043-0044 These addresses point to the start of 

the user storage, the start of the BASIC 
program. PEEK(43)+256*PEEK(44) will show 
you this value. You can set the 
beginning higher by poking to these 
locations and use the lower memory area 
for the rest of the sprites. 

0045-0046 In these addresses you find the start of 

the numeric variable table. This table 
usually lies directly behind the BASIC 
storage. 

0047-0048 Contain the address of the start of the 

array storage. All fields (arrays) are 
placed in this area. 

0049-0050 The contents of these addresses point to 

the end of the array storage. 
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0051-0052 In these locations is the pointer to the 

start of the BASIC string variables. 

0055-0056 Pointer to the end of the BASIC HAM. By 

changing the contents of these addresses 
it is possible to protect a specific 
section of HAM (above the BASIC storage) 
against overwriting. This allows you to 
reserve this protected memory for a 
machine language program and still have 
the HAM from $C000 to $CFFF free for 
other purposes. For example: POKE 55,0 : 
POKE 56,64 sets the end of BASIC HAM to 
$4000. 

0115-0138 The CHHGET routine resides at these 

addresses. This routine gets the 
characters from the individual BASIC 
lines. In order to write BASIC 
expansions, this routine must be 
altered. 

0203 The code for the currently pressed key 

is stored in this address. If this 
address contains 64, it means that no 
key was pressed. 
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If you want to learn more about the "insides" of the 
Commodore 64, we recommend the Abacus book The Anatomy of 
the Commodore 64. There you will learn more about 
programming in machine language and the construction of the 
64*s HAM and ROM. We encourage you to experiment with the 
various addresses of the Commodore 64. There is much hidden 
in your computer—it only needs to be drawn forth. 
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